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PREFACE 


This manual is designed for system programmers and planners who 
supervise the generation and maintenance of an organization's 
operating system. It contains material for installing the VS 
FORTRAN Compiler and Library and is to be used in conjunction 
with the VS FORTRAN Program Directory that applies to your 
system. Version 1, Release 4, Modification 0 of VS FORTRAN is 
referred to in this manual as Release 4.0. 


ORGANIZATION OF THIS BOOK 

• Part 1 contains high-level information for installing VS 
FORTRAN. It includes a brief description of the VS FORTRAN 
Compiler and Library, and a list of installation 
prerequisites. This section also lists the system, machine 
and storage requirements for installation of the compiler 
and library, and describes the macros needed at installation 
time. 

• Part 2 describes the installation process as it applies to 
the particular operating systems under which VS FORTRAN can 
be installed. It includes chapters for MVS/SP and MVS/XA, 
VSE/Advanced Functions, and VM/SP. 

• Part 3 describes the features of VS FORTRAN that may be 
customized for your installation. It includes chapters for 
customization features that are specific to MVS/SP and 
MVS/XA, VSE/Advanced Functions, and VM/SP. 

There are also two Appendixes. 

• Appendix A explains the program product support services and 
structure. 

• Appendix B lists Compiler and Library modules. 


INDUSTRY STANDARDS 


The VS FORTRAN Compiler and Library program product is designed 
according to the specifications of the industry standards listed 
below, as understood and interpreted by IBM as of May, 1982. 

The following two standards are technically equivalent. In this 
manual, references to the current standard are references to 
these two standards: 

• American National Standard Programming Language FORTRAN, 

ANSI X3.9-1978 (also known as FORTRAN 77) 

• International Organization for Standardization ISO 1539-1980 
Programming Languages-FORTRAN 

The bit string manipulation functions are defined in 
ANSI/ISA-S61.1. 

The following two standards are technically equivalent. In this 
manual, references to the Old Standard are references to these 
two standards: 

• American Standard FORTRAN, X3.9-1966 (also known as FORTRAN 
66 ) 

• International Organization for Standardization ISO R 
1539-1972 Programming Languages-FORTRAN 
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Both the FORTRAN 77 and the FORTRAN 66 standard languages 
include IBM extensions. In this book references to current 
FORTRAN are references to the FORTRAN 77 standard, plus the IBM 
extensions valid with it. References to old FORTRAN are 
references to the FORTRAN 66 standard, plus the IBM extensions 
valid with it. 


RELATED PUBLICATIONS 


VS FORTRAN 

VS FORTRAN Programming Guide, SC26-4118 
VS FORTRAN Language and Library Reference , SC26-4119 
VS FORTRAN Compiler and Library Reference Summary , SX26-3731 
VS FORTRAN Compiler and Library; Diagnosis Guide , SC26-3990 

MVS/SP 

OS/VS Virtual Storage Access Method CVSAM) Programmers 
Guide , GC26-3838 

OS/VS System Modification Program (SMP)t System Programmers 
Guide , GC28-0673 

OS/VS System Modification Program (SMP): Messages and Codes , 
GC38-1047 

System Modification Program Extended (SMP/E): User's Guide , 
SC28-1302 

System Modification Program Extended (SMP/E): Messages and 
Codes , GC28-1108 

0S/VS2 MVS Data Management Services Guide , GC26-3875 
0S/VS2 Access Method Services , GC26-3841 
0S/VS2 MVS JCL , GC28-0692 

0S/VS2 MVS Supervisor Services and Macro Instructions , 
GC28-1114 

MVS/EXTENDED ARCHITECTURE CMVS/XA) 

MVS/Extended Architecture Integrated Catalog Administration: 
Access Method Services Reference , GC26-4019 

MVS/Extended Architecture JCL , GC28-1148 

MVS/Extended Architecture Data Administration Guide , 
GC26-4013 

MVS/Extended Architecture VSAM Administration Guide , 
GC26-4015 

MVS/Extended Architecture Supervisor Services and Macro 
Instructions , GC28-1154 
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VSE/ADVANCED FUNCTIONS 

VSE/Advanced Functions System Management Guide * SC33-6094 

VSE System Data Management Concepts * GC24-5209 

VSE/Advanced Functions System Control Statements * SC33-6095 

VSE/Advanced Functions Maintain System History Program 
(MSHP) User's Guide , SC33-6101 

VSE/VSAM Programmer's Reference * 5C24-5145 

Using VSE/VSAM Commands and Macros * SC24-5144 


VM/SP 

VM/SP CP Command Reference for General Users , SC19-6210 

VM/SP CMS Command and Macro Reference * SC19-6ZU9 

VM/SP CMS User's Guide , SC19-6210 

VM/SP Planning Guide and Reference . SC19-6201 

VM/SP Installation Guide , SC24-5237 

VM/SP System Programmers Guide , SC19-6203 

VM/PC 

IBM Virtual Machine/Personal Computer User's Guide * 
SC24-5254 

VS FORTRAN INTERACTIVE DEBUG 

VS FORTRAN Interactive Debug Guide and Reference * SC26-4116 
VS FORTRAN Interactive Debug Installation * SC26-4117 
VS FORTRAN Interactive Debug Reference Summary * SX26-3742 

PROGRAM SUPPORT 

Field Engineering Programming Systems General Information * 
G229-2228 
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RELEASE NOTES 


VS FORTRAN COMPILER AND LIBRARY 

| RELEASE 4.0, OCTOBER 1984 


| VSAM Key-Sequenced Data Sets 

VS FORTRAN programs can now load and access VSAM KSDS files: 

• Records can be retrieved, added, replaced, and deleted, 
using key values (designated fields within the records). 

• Both direct and sequential processing (by key value) are 
allowed. 

• Multiple alternate keys, as well as a primary key, can be 
used. 

REWRITE and DELETE statements have been added to the language to 

process these files, and some existing I/O statements have been 

expanded. 


| Reentrant Object Code (MVS and VM) 

The compiler can create a reentrant version of the object-code 
portion of a program. When object code is reentrant (and placed 
in a reentrant area), multiple end-users can share a single copy 
of it, thereby saving execution-time storage. 


| Execution-Time Loading of Library Routines 

The library has been restructured to allow more execution-time 
loading of library routines. This has multiple benefits: 

• Reduces auxiliary storage requirements for load modules. 

• Speeds execution for users in compile-link-go mode. 

• In an MVS/XA environment, allows many library routines to 
reside above 16 megabytes, thus providing virtual-storage 
constraint relief. 

(This new library design will not impact users who have Release 
2 or Release 3 load modules that access the old reentrant I/O 
library (via IFYVRENT), and who do not want to relink. 
Maintenance is automatically provided, and relinking is only 
necessary if Release 4.0 function is desired.) 


| Automatic Precision Increase 

This feature allows a user to boost the precision of 
floating-point items in an existing program without recoding it. 
Single precision items can be made double; double can be made 
extended. Users merely recompile the program with a specified 
option (AUTODBL). 


vi VS FORTRAN Compiler and Library Installation and Customization 



Faster Character Handling 

Character assignment and comparison operations are now handled 
by in-line code, rather than by calls to the Library. This 
speeds execution time, and eliminates all error messages 
previously issued, including overlap detection. 


Improved Diagnostic Support 

The following enhancements allow easier program maintenance and 

debugging. 

• MAP and XREF output can be formatted to fit a terminal 
screen. 

• LIST output gives ISNs, and XREF output identifies variables 
referenced but not initialized. 

• An explicit SDUMP compiler option is available (previously, 
this was available only as an installation-wide default). 

• Object module size has been decreased by condensing and 
simplifying the SDUMP table. The symbol table size, 
however, remains the same. 

• Execution-time error messages have been expanded to supply 
line numbers, ISNs, and offsets. 


Improved I/O Support 


The following improvements have been made to VS FORTRAN I/O 

statements! 

• For sequential unformatted I/O, you can now use all record 
formats. Fixed (blocked or unblocked), undefined, variable 
(blocked or unblocked), and variable spanned (blocked or 
unblocked) formats are supported. 

• You can specify a character type unit designator for 
list-directed READ and HRITE statements. This allows you to 
do list-directed reads and writes to an internal file. 

• The NUM parameter is now a valid control list parameter for 
all unformatted I/O statements for LANGLVL(77). The NUM 
parameter returns the number of bytes transferred, and 
suppresses the indication of an error if the I/O list 
represents more data contained in the record. 

• Several extensions have been made to the NAMELIST READ and 
WRITE statements. You can now use the keywords UNIT and 
FMT. The unit designator for NAMELIST I/O can be character 
type, so you can do NAMELIST reads and writes to an internal 
file. The unit designator can also be an asterisk to 
represent an installation-dependent unit. You can now use a 
NAMELIST in the PRINT statement at LANGLVL(77). 


| Miscellaneous Changes 


You can now use data initialization values in the character 
and double precision, explicit-type statements. 

The SC compiler option has been deleted. 
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| RELEASE 3.1, MARCH 1984 


| VS FORTRAN Interactive Debug Support 

When a VS FORTRAN program is executed, the user has a choice of 
two different execution options: 

• DEBUG, which activates VS FORTRAN Interactive Debug 
immediately; and 

• NODEBUG, the IBM default, which does not invoke VS FORTRAN 
Interactive Debug. 

Note: The TEST compiler option is not necessary for VS FORTRAN 

Interactive Debug. 


RELEASE 3.0, MARCH 1983 


Character Data Type Handling 

VS FORTRAN Release 3.0 provides for passing CHARACTER length 

arguments in a manner that is not apparent to the user. 

In addition: 

• CHARACTER and non-CHARACTER data types are allowed in the 
same COMMON block. 

• CHARACTER and non-CHARACTER data types are allowed in an 
EQUIVALANCE relationship. 

• The CHARLEN compiler option may be specified to set the 
maximum length of the CHARACTER data type to a range of 1 
through 32767. The default maximum length remains 500 
characters, or whatever was set at installation time. 

• The SC option has been removed because the character length 
is now passed in a manner that is not apparent to the user. 


Debugging and Diagnostic Aids 

• The TRMFLG compiler option may be specified to display a 
source statement in error on the SYSTERM data set, along 
with the diagnostic message. 

• A symbolic dump of variables at abnormal termination can be 
obtained for modules not compiled with the NOSDUMP compiler 
option. 

• A symbolic dump of variables in a module not compiled with 
the NOSDUMP option can be obtained on request by calling the 
SDUMP library routine. 

• The SYM compiler option may be specified to produce SYM 
cards along with the object deck. 

• The SRCFLG compiler option may be specified to insert 
diagnostic messages in the printed source listing. 
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INCLUDE Statement Improvement 

• INCLUDE statements can be selectively activated during 
compilation. 

• Blocked file support has been added to the INCLUDE facility. 


Miscellaneous Changes 

• OPEN/ CLOSE/ and INQUIRE parameters that are constants are 
checked at compile time. 

• VS FORTRAN continues executing after transmission 
input/output errors have occurred. 

• Formatting for a new direct-access data set has been 
provided for the OPEN statement. 

• For direct-access 1/0/ the records of a file must be either 
all formatted or all unformatted/ not mixed. 

• Various service changes have been made. 

Warning: Every program that has been compiled with versions of 
VS FORTRAN previous to Release 3.0/ and that either references 
or defines a user subprogram that has charactei—type arguments 
or is itself of character type/ must be recompiled with VS 
FORTRAN Release 3.0. 
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CHAPTER 1. INTRODUCTION 


The VS FORTRAN Compiler and Library# and the VS FORTRAN Library 
only# are available as separate program products. Each program 
product is distributed on its own tape containing the necessary 
modules# as well as the test program for verifying the 
installation procedures. If you have ordered the VS FORTRAN 
Library only# refer to the appropriate section about your system 
for any special installation considerations. 


OVERVIEW OF THE PRODUCT 

The VS FORTRAN Compiler translates programs written in the VS 
FORTRAN language and produces object modules for subsequent 
execution with the support of a suitable FORTRAN library. 

The VS FORTRAN Library contains mathematical# character# bit# 
service# input/output# and error routines. The library is 
designed to support all the features of the VS FORTRAN language. 


| WHERE TO FIND MORE INSTALLATION INFORMATION 

In the following sections of this book# we describe the 
installation requirements and the steps needed to install the 
Compiler and Library. Before installing VS FORTRAN Release 4.0# 
contact your IBM Support Center or check the RETAIN/370 
Preventive Service Planning (PSP) Facility for updates to the 
information and procedures in this book. 

For specific information on space allocations# moduleand macro 
numbers# and other details needed to install the Compiler and 
Library# see the VS FORTRAN Program Directory for your system. 
The program directory is shipped in the same package as the 
installation tapes for the VS FORTRAN product. It describes all 
the installation materials# and gives installation instructions 
specific to the product release level and modification level# 
and to the operating system# if any beyond that supplied in this 
book are necessary. 
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CHAPTER . ?.t SYSTEM , . jiACHI NE^Jj g JSI QR AQ g , BEmRE MEHIS 


To install the VS FORTRAN Compiler and Library* you need the 
distribution tape for the VS FORTRAN program product. You will 
need to refer to this manual* the Program Directory for your 
system* and the RETAIN/370 PSP facility. You also need to meet 
the following system* machine* and storage requirements before 
beginning installation of VS FORTRAN: 


| SY STEM RE QU I RE ME NT S 

• The VS FORTRAN Compiler and Library runs under the following 
systems: 

MVS/SP (All releases) 

— MVS/XA (Release 1.0 and any subsequent releases) 

— VSE/Advanced Functions (Release 3.0 and any subsequent 
releases) 

VM/SP (All releases) 

— VM/PC (Release 1.0 and any subsequent releases) 

• The distribution tape for the VS FORTRAN program product 
requires one of the following: 

— Under MVS/SP and MVS/XA* the System Modification Program 
4 (SMP4) or the System Modification Program Extended 
(SMP/E) 

— Under VSE/Advanced Functions* the Maintain System 
History Program (MSHP) 

— Under VM/SP* the EXEC procedures for installation 
provided as part of VS FORTRAN 


| A NOTE ABOUT VM/PC 

Because the VS FORTRAN Compiler and Library cannot be directly 
installed on the VM/PC system* this manual does not contain 
information about installation under VM/PC. If you are using 
VM/PC* the VS FORTRAN Compiler and Library must first be 
installed on your host system. For more information about 
VM/PC, see IBM Virtual Machine/Personal Computer User's Guide . 


MACH INF-RI.QUIR5M E N TS 


Before installing VS FORTRAN* you need the following machine 
configuration: 

• Compile-time Machine Requirements: 

— Any processing unit supported by MVS/SP (with or without 
TSO)* MVS/XA (with or without TSO-E)* VSE/Advanced 
Functions* or VM/SP 

— I/O devices used by the compiler* normally disks 

• Object-time Machine Requirements 

— Any processing unit supported by MVS/SP (with or without 
TSO)* MVS/XA (with or without TSO-E), VSE/Advanced 
Functions* or VM/SP 

— I/O devices used by the object program during execution 
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• Supported Devices 

Under MVS/SP, MVS/XA, and VM/SP, IBM devices supported 
by the BSAM, BDAM, and VSAM access methods can be used 
by object programs produced by the VS FORTRAN compiler 
when used with the VS FORTRAN library. 

— Under VM/SP, any devices supported by VSAM, or by BSAM 
or BDAM for MVS compatibility, are supported by VS 
FORTRAN. 

— Under VSE/Advanced Functions, the VS FORTRAN 

device-independent interface supports IBM devices 
transparent through the VSAM interface, the SAM 
interfaces for non-DASD devices, and the SAM/DAM 
device-independent interface provided by the Basic 
Access Method. 


STORAGE REQUIREMENTS 


To install VS FORTRAN, you will need space available on one of 
the following: 

• Under MVS/SP or MVS/XA, space for the various product 
libraries on your disks 

• Under VSE/Advanced Functions, space in the core image 
(system or private), relocatable, and source statement 
libraries 

• Under VM/SP, space on 2 target disks 

For specific DASD space requirements, refer to the VS FORTRAN 
Program Directory. The VS FORTRAN Compiler requires 980K bytes 
of virtual storage to handle a typical FORTRAN source program of 
100 statements. Storage requirements for the VS FORTRAN Library 
vary according to the customization features selected, and 
according to the size of user programs. 
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CHAPTER 3, THE INSTALLATION MACROSL VSF05TCJVNJLVgFORIi 


Two installation macros; VSFORTC and VSFORTL, are provided with 
VS FORTRAN. The compiler macro instruction VSFORTC specifies 
the compiler default options. The library macro instruction 
VSFORTL specifies library default options and input/output 
information. This section will help you plan which options to 
include as defaults for your installation. For information on 
how to code and use the macros, see the chapter for your system 
in the "Installation Guide," in Part 2 of this book. 


VSFORTC MACRO 


You must use the VSFORTC installation macro to specify the 
system on which VS FORTRAN will run. VSFORTC also permits you 
to specify the default values for compiler options. 

When you code the VSFORTC macro instruction, you establish 
system defaults for the compiler options that can be specified 
by the individual user. These defaults will be assumed if the 
parameters are not overridden by the user. 

If you want to find out what possible errors can occur during 
VSFORTC macro assembly, use the INSTERR option with the 
appropriate SYSTEM option to produce a list of error messages. 
After you have the list, be sure to remove the INSTERR option 
from the macro. Otherwise, you will continue to receive a 
return code of 16 from the assembler. 

The following table shows the pairs of options that will create 
an error message, if both are used. The VSFORTC macro will not 
allow the installation to proceed if any of these conditions 
occurs. 


FIPS=F or FIPS=S 

S0RCIN=FREE 

FIPS=F or FIPS=S 

FLAG=W|EIS 

FIPS=F or FIPS=S 

LANGLVL=66 

NAME=name 

LANGLVL=77 

SRCFLG=SRCFLG 

S0RLIST=N0S0URCE 

SYM=SYM 

PUNCH=N0DECK and 

OBJPR0G=NOOBJECT 

TEST=TEST 

NAME=name 

TEST=TEST 

0BJPR0G=N00BJECT 

TEST=TEST 

0PTIMIZ=11213 


The IBM-supplied default parameters are underlined in the 
following parameter lists. If a given operand is not coded in 
the VSFORTC installation macro, these parameters are assumed 
when the macro is assembled. The options that can be specified 
for the VSFORTC installation macro are as follows: 

CHARLEN = number|500 

specifies the maximum length for any character variable, 
character array element, or character function. Specify 
number as an integer from 1 to 32767. Within a program 
unit, you cannot specify a length for a character variable, 
array element, or function greater than the CHARLEN 
specified. 
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DATE = MDYIYMD 

specifies the format of the date to be printed by the 
compiler. 

DATE = YMD 

specifies that DATE is to be in the format yymmdd 
(y=year, m=month, d=day). 

DATE = MDY 

specifies that DATE is to be in the format mmddyy 
(m=month, d^day, y s year). 

FIPS = SlFl NOFIPS 

specifies whether or not standard language flagging is to 
be performed, and, if it is, the standard language flagging 
level i 

FIPS = S 

specifies subset standard language flagging. 

FIPS = F 

specifies full standard language flagging. 

FIPS = NOFIPS 

specifies no standard language flagging. 

Items not defined in the current American National Standard 
are flagged. Flagging is valuable only if you want to 
write a program that conforms to the American National 
Standard for FORTRAN implemented in LANGLVL(77). If you 
specify LANGLVC66) and FIPS flagging at either level, the 
FIPS option is ignored. 

FLAG = IIWIEIS 

specifies the level of diagnostic messages to be written. 
FLAG = I 

specifies that all messages, including informational 
messages (return code 0 or higher) are to be written. 

FLAG = W 

specifies that warning messages (return code A or 
higher) are to be written. 

FLAG = E 

specifies that error messages (return code 8 or 
higher) are to be written. 

FLAG = S 

specifies that severe error messages (return code 12 
or higher) are to be written. 

FLAG allows you to suppress messages that are below the 
level desired. Thus, if you want to suppress all messages 
that are warning or informational, specify FLAG(E). 

INSTERR = NOLIST 1 LIST 

specifies whether or not to list the messages that could be 
issued by the compiler installation macro. If LIST is 
chosen, all possible messages are listed and compiler 
installation does not occur. 

LANGLVL =66177 

specifies the language level at which the input source 
program is written. 

LANGLVL = 66 

specifies the old FORTRAN level—the 1966 language 
standard plus IBM extensions. 

LANGLVL = 77 

specifies the current FORTRAN level—the 1978 language 
standard plus IBM extensions. 
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LZNECNT = number | M 

specifies the maximum number of lines on each page of the 
printed source listing. Specify number as an integer from 
5 to 32765. The advantage of using a large LINECNT number 
is that there are fewer page headings to look through if 
you are using only a terminal. Your output/ if printed/ 
will run together from page to page without a break. 

NAME = name I MAIN 

can only be specified when LANGLVK66) is specified. It 
specifies the name that is generated on the output and the 
name of the CSECT generated in the object module. It only 
applies to main programs. Hhen NAME is omitted/ the 
default name (MAIN) is used. 

OBJATTR a RENT 1 NORENT 

specifies whether or not reentrant object code is to be 
generated by the compiler. 

OBJID = GOSTMT1 NOGOSTMT 

specifies whether or not internal sequence numbers (for 
traceback purposes) are to be generated for a call sequence 
to a subprogram. 

OBJLIST = LIST I NOLIST 

specifies whether or not the object module listing is to be 
produced. 

OBJPROG = OBJECT \NOOBJECT 

specifies whether or not the object module is to be 
produced. If OBJECT is specified/ it requires an object 
output file. 

OPTIMIZ = 01112131 NOOPTIMIZE 

specifies the optimizing level to be used during 
compilation. 

OPTIMIZ = 0 or NOOPTIMIZE 

specifies no optimization. 

OPTIMIZ = 1 

specifies register and branch optimization. 

OPTIMIZ = 2 

specifies partial code-movement optimization/ code 
movement that can not introduce logic changes into the 
program. 

OPTIMIZ = 3 

specifies full code-movement optimization/ which can 
possibly introduce logic changes into the program. 

If you are debugging your program/ it is advisable to use 
NOOPTIMIZE. To create more efficient code and/ therefore/ 
a shorter execution time with (usually) a longer compile 
time, use OPTIMIZED) or (3). 

PUNCH = DECK I NODECK 

specifies whether or not the object module is to be 
produced in card-image format. If DECK is specified, it 
requires a punch output file. 

SORCIN = FREEI FIXED 

specifies whether the input source program is to be in free 
format or in fixed format. 

SORLIST = SOURCE 1 NOSOURCE 

specifies whether or not the source listing is to be 
produced. 

SORTERM = TERMINAL I NOTERMINAL 

specifies whether or not error messages and compiler 
diagnostics are to be written on the terminal or a SYSTERM 
data set. 
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Note: If your users are not using a SYSTERM data set, 
specify NOTERMINAL because there is no terminal available. 

SORXREF = XREFI NOXREF 

specifies whether or not a cross-reference listing of all 
variables and labels in the source program is to be 
produced. 

SRCFLG = SRCFLG INOSRCFLG 

allows error diagnostics to be inserted into the source 
listing immediately following the statement in error. 

STORMAP = MAP I NOMAP 

specifies whether or not a table of source program names 
and statement labels is to be written. 

SXM = SXMI NOSXM 

improves readability of XREF or map listing output at a 
terminal. SXM formats listing output for a 72-character 
wide terminal screen; NOSXM formats listing output for a 
printer. 

SYM = SYM1 N0SYM 

invokes the production of SYM cards in the object text 
file. The SYM cards contain location information for 
variables within a FORTRAN program. SYM cards are useful 
to MVS users. 

SYMDUMP = SDUMP INOSDUMP 

specifies whether or not symbol table information is to be 
generated in the object module and in the object module 
listing. 

SYSTEM = OS/VS|CMS|DOS/VSE 

specifies the system on which VS FORTRAN will run. 

Note: You must specify the system on which you are 
installing VS FORTRAN. 

There is no system default. 

TEST = TEST I NOTEST 

TEST overrides any optimization level above OPTIMIZE(O), 
and adds execution-time overhead. Specifies whether or not 
to create input for VS FORTRAN Interactive Debug (5668-903) 
and symbol table information. 

TRMFLG = TRMFLG INOTRMFLG 

presents the statement in error and the diagnostic message 
together, whenever possible, on your terminal. Specify the 
NOTRMFLG option if you are running batch jobs on MVS or 
VSE. 

Note: If your users are not using a SYSTERM data set, 

specify NOTRMFLG because there is no terminal available. 


VSFORTL MACRO 

The VSFORTL macro instruction specifies input/output information 
for the VS FORTRAN Library. The VS FORTRAN Library object-time 
input/output routines require information on the number of 
logical input/output units that are available to the system; the 
UNTABLE operand provides this information. 

These routines also require that defaults be established for the 
logical input/output units to be used for READ statements, PUNCH 
statements, error messages, and dumps. The ONLNRD, ONLNPCH, and 
OBJERR operands establish default data set reference numbers to 
be used. The FORTRAN programmer using the library may use these 
defaults and need not supply a data set definition statement. 
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The SYSTEM operand is required; all other VSFORTL keyword 
operands are optional. If any other operand is omitted/ the 
default value for that operand is used. 

The IBM-supplied default parameters are underlined in the 
following parameter lists. The VSFORTL macro instruction 
keyword operands and their parameters aret 

ARCH = STD IXA 

specifies whether you want standard (non-XA) or XA 
installation. You may specify ARCH^XA on a non-XA 
installation if Assembler H Version 2 Release 1 C5668-962) 
is used. You must specify XA when the library is to run on 
MVS/XA. 

DECIMAL = PERIOD I COMMA 

specifies the character to be used as the decimal indicator 
in printed output. 

OBJERR = unit 106 

specifies the logical I/O unit number to be used with 
object-time error messages/ with any WRITE statement 
specifying an installation-dependent form of the unit/ and 
with the PRINT statement. The number specified must not 
exceed the value specified for the UNTABLE operand, and 
must not be the same as specified for ONLNRD or ONLNPCH. 

Specify unit as a 2-digit number from 01 to 99. 

ONLNPCH = unit|07 

specifies, for LANGLVLC66) only, the logical I/O unit 
number to be used with the PUNCH statement to output data 
to the card punch. The number specified must not exceed 
the value specified for the UNTABLE operand, and must not 
be the same as specified for ONLNRD or QBJERR. 

Specify unit as a 2-digit number from 01 to 99. 

ONLNRD = unit|05 

specifies the logical 1/0 unit number to be used with any 
READ statement specifying an installation-dependent form of 
the unit. The number specified must not exceed the value 
specified for the UNTABLE operand, and must not be the same 
as specified for ONLNPCH or OBJERR. 

Specify unit as a 2-digit number from 01 to 99. 

SYSTEM = OS/VS|CMS|DOS/VSE 

specifies the system on which VS FORTRAN will run. 

Note: You must specify the system on which you are 
installing VS FORTRAN. 

There is no system default. 

UNTABLE = number|08 

specifies the largest unit number you can include in a VS 
FORTRAN program. Because the unit numbers begin with 0, 
the UNTABLE number plus 1 indicates how many units are 
allowed. 

Specify number as a 2-digit integer from 08 to 99. The 
storage required for a unit table using the default of 08 
is 160 bytes. Each additional unit added to the table adds 
16 bytes of storage. If you specify UNTABLE=99, your table 
will occupy 1616 bytes of storage. 
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CHAPTER 4. INSTALLATION UNDER MVS 


This chapter describes the standard installation of the VS 
FORTRAN Compiler and Library under MVS/SP and MVS/XA. The 
procedure for installing the Library only is the same as the 
procedure for the Library when installed with the Compiler. 

For specific information on space allocations* module and macro 
names and other details needed to install the Compiler and 
Library* see the VS FORTRAN Program Directory. For information 
on the features that you can customize to fit your 
installation's needs* see Chapter 8* "Customization under MVS" 
on page 38. 


| BASIC MACHINE-READABLE MATERIAL 


The distribution medium for VS FORTRAN Compiler and Library* and 
the VS FORTRAN Library only* is a standard-labeled 9-track tape 
written at either 1600 or 6250 BPI* which contains SMP 
modification control statements* JCLIN* modules* and macros. 

See the Program Directory for the order of files and their 
descriptions. 


| ADDITIONAL STORAGE REQUIREMENTS 

See the Program Directory for information on the additional 
track and directory block space required by VS FORTRAN when the 
COMPRESSCALL) keyword is not used in the SMP ACCEPT and APPLY 
processing. 


| DATA SETS 


| SMP 

I The following SMP data sets are needed during the installation 

process: 


SMP4 

SMP/E 

SMPACDS 

SMPACRQ 

SMPCDS 

SMPCRQ 

SMPMTS 

SMPPTS 

SMPSCDS 

SMPSTS 

SMPLOG 

SMPE.DATA.CSI 
SMPE.INDX.CSI 
SMPET.DATA.CSI 
SMPET.INDX.CSI 
SMPED.DATA.CSI 
SMPED.INDX.CSI 
SMPPTS 

SMPSCDS 

SMPLOG 

SMPSTS 

SMPMTS 


For exact block sizes and DASD space requirements* see the 
Program Directory. The SMP space allocations contained there 
reflect the minimum requirement. If you plan to do subsequent 
maintenance* you will need to increase the size. 
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SMPTLIB 


Eight SMPTLIB data sets are allocated by the RECEIVE process. 

The DSSPACE subentry of the PTS SYSTEM entry must be of 
sufficient size to accommodate a maximum SMPTLIB data set size 
of six cylinders and 50 directory blocks on a 3330. The SMPTLIB 
data sets will be used in the APPLY and ACCEPT steps described 
under "Installation Procedures" on page 14. They are 
uncataloged data sets, and are deleted if the ACCEPT is 
successful. 


TARGET AND DISTRIBUTION LIBRARIES 

The following libraries are needed for the installation process: 


Compiler 

Target 

Libraries 


Library 

Target 

Libraries 


Compiler 

Distribution 

Libraries 


Library 

Distribution 

Libraries 


SYS1.FORTVS 
SYS1.PPOPTION 
SYS1.PROCLIB 
SYS1.SAMPLIB 


SYS1.PPOPTION 
SYS1.VALTLIB 
SYS1.VFORTLIB 
SYS1.VLNKMLIB 


SYS1.VSFCCM 
SYS1.VSFCCS 


SYS1.VSFLBM 
SYS1.VSFLBS 


Note that all the target libraries must be allocated to complete 
SMP install, whether you choose to use them later or not. 


| LIBRARY DESCRIPTIONS 


FORTVS Compiler load modules 

PPOPTION Compiler and library options macro input; members 
IFXOOPTS and IFYUATBL 

PROCLIB Cataloged procedures to run VS FORTRAN jobs; for a 
listing of each procedure, see the VS FORTRAN 
Programming Guide 

SAMPLIB Sample FORTRAN source program and SMP installation 
procedures 


VALTLIB 

VFORTLIB 

VLNKMLIB 

VSFCCM 

VSFCCS 

VSFLBM 

VSFLBS 


Library of alternative mathematical modules 

Library of modules used for linkage editing in both 
link mode and load mode, and for executing in load 
mode 

Library of interface modules used in link mode only 
Compiler object modules 

Compiler macros and cataloged procedures 
Library object modules 
Library macros 


INSTALLATION OVERVIEW 

To install VS FORTRAN using SMP, take the following steps: 

1. Unload the SMP installation jobs and procedures from the PID 
tape using JCL similar to the example given in "Installation 
Procedures" on page 14. 

2. Examine the installation jobs and procedures and change them 
as necessary to suit your local requirements. You must 
supply local defaults for the VSFORTC and VSFORTL macros in 
the installation job. 


Chapter 4. Installation Under MVS 13 



3. Execute the INSTALL job to receive and apply VS FORTRAN. 

This job performs the following functions: 

a. Allocation of SMP data sets using the procedure ALLCPRl 

b. Initialization of SMP data sets using the procedure 
INITPROC 

c. Allocation of product data sets using the procedure 
FORTPROC 

d. Creation of PPOPTION members for VSFORTC and VSFORTL 
macro defaults 

e. Invocation of SMP to accomplish the receive and apply 
using the procedure ACCVSF 

4. Optionally, run a sample program to verify that installatic 

is complete. 

5. Use the ACCEPT job to accept the product into the 

distribution libraries. 


I INSTALLATION PROCEDURES 

The following sections give you detailed descriptions of the 
steps outlined in the installation overview. If a previous 
version of VS FORTRAN is already installed on your system, you 
may want to save it in an alternate library to prevent it from 
being overlaid by Release 4.0. 

To install VS FORTRAN Compiler and Library, use the System 
Modification Program (SMP) Release 4 or System Modification 
Program Extended (SMP/E) service aid. Refer to the OS/VS Svstei 
Modification Program (SMP): System Programmers Guide or System 
Modification Program Extended (SMP/E): User f s Guide for 
information regarding the use of SMP. 


| UNLOADING THE SMP INSTALLATION PROCEDURES AND JOBS 

With the sample Job Control Language (JCL) shown below, you can 
copy the installation procedures from the PID tape to disk. 
Executing this JCL takes the jobs and procedures off the 
installation tape, catalogs them in a data set, and prints a 
copy. 
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//GETPROCS 

//X 

JOB 

.... (user information) 

//X GET 

//X 

SMP 

INSTALLATION PROCEDURES FROM PID TAPE 

// 

EXEC 

PGM=IEBCOPY 

//SYSPRINT 

DD 

SYSOUT=A 

//IN 

DD 

DSN=filename,UNIT=2400-3,V0L=SER=volser,DISP=SHR, 

// 


LABEL=(x,SL) 

//OUT 

DD 

DSN=FORTRAN.SMPPROCS,DISP=(NEW,PASS),SPACE=(TRK,(1,1,2)), 

// 


UNIT=SYSDA,VOL=SER=volid, 

// 


DCB=(RECFM=FB,LRECL=80,BLKSIZE=4000) 

//SYSUT3 

DD 

SPACE=(TRK,(1)),UNIT=SYSDA 

//SYSUT4 

DD 

SPACE=(TRK,(1)),UNIT=SYSDA 

//SYSIN 

DD 

X 

COPY INDD 

= IN, 

OUTDD=OUT 

SELECT MEMBER 

=(ALLCPROC,INITPROC,FORTPROC,ACCVSF,INSTALL,ACCEPT) 

/x 

//X 



//X PRINT THE PROCEDURES 

//X 

// EXEC 

PGM 

=IEBPTPCH 

//SYSPRINT 

DD 

SYSOUT=A 

//SYSUT1 

DD 

DSN=FORTRAN.SMPPROCS,DISP=(OLD,CATLG) 

//SYSUT2 

DD 

SYSOUT=A 

//SYSIN 

DD 

X 

PRINT TYPORG=PO,MAXFLDS=9 

RECORD FIELD=(80) 

/X 





Note: See the VS FORTRAN Program Directory for the specific 

names and profile position you need to insert in place of x, 
filename and volser in the example above. (Volid is your own 
data.) 



Each of the SMP installation procedures has the format shown 
below. The section of each procedure required for SMP/E is 
commented out. If you are using SMP/E, the SMP4 portions of the 
procedures should be deleted or commented out, and the leading 
//x should be removed from the SMP/E statements. 

//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

//X 



//X PROCEDURE TO* - 

//X 



//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 

//X 


SMP4 VERSION 

// 



// 



// 


• • • 

//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

//X 

//X 


SMP/E VERSION 

//X 



//xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

//X// 

//X// 



//X// 
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| PREPARING TO INVOKE THE INSTALLATION PROCEDURES 

Before invoking the installation procedures* you may want to 
change the job control statements for UNIT* VOLID* or BLKSZ in 
ACCVSF* or any of the data set names used in the procedures. II 
you do* you must make the corresponding changes in each 
procedure. You must examine the INSTALL job and supply the 
required variable information that is needed there. 

After making the required changes to all the procedures* insert 
them into either a PROCLIB or the INSTALL job where they will be 
invoked. 

The space allocations in the procedures are for an IBM 3330 Disk 
Storage and will have to be adjusted for other devices. Refer 
to the Program Directory for precise information on block sizes 
and DASD space requirements. 


| USING THE ALLCPROC AND 1NITPR0C PROCEDURES 

The two procedures* ALLCPROC and INITPROC* set up the SMP 
environment. ALLCPROC allocates the data sets required for SMP. 
INITPROC initializes the SMP data sets SMPCDS* SMPACDS* and 
SMPPTS for SMP4* and initializes the global* target* and 
distribution zones for SMP/E. You should execute these 
procedures only if you do not intend to use existing SMP data 
sets. 

Note that* if you are using existing SMP data sets* the space 
and directory block allocations given will be required in 
addition to existing allocations. You should have a 
distribution library (DLIB) pack with adequate space for the VS 
FORTRAN Compiler and Library data sets* the space requirements 
are included in the JCL. 

These data sets are used only for software service* and the DLIB 
pack will normally be online only when the system is being 
updated. 


| USING THE FORTPROC PROCEDURE 

This procedure allocates the data sets that contain VS FORTRAN 
Compiler and Library load modules and macros. Allocations given 
in the procedure are for a 3330 device; you must adjust for 
other device types* and for any existing data sets Cfor example* 
SYS1.SAMPLIB). 


| SPECIFYING DEFAULTS 


In the CREATE step of the INSTALL job* you must specify the 
default VS FORTRAN Compiler and Library options for your 
installation. The CREATE step executes IEBGENER to place your 
defaults for the macros VSFORTC and VSFORTL in members IFXOOPTS 
and IFYUATBL of the PPOPTION data set. 

Code the VSFORTC and VSFORTL macro instructions as follows> 
Column 1 must be blank. VSFORTC or VSFORTL may appear anywhere 
before column 72 but must precede the operands by at least one 
blank. The operands are separated by commas and may be 
continued on any number of logical records as long as column 72 
contains a nonblank character and the data on the following 
record begins in column 16. 

Refer to Chapter 3* "The Installation Macros: VSFORTC and 
VSFORTL" on page 5* for the VSFORTC and VSFORTL options you may 
choose* and the IBM-supplied defaults. In both macros* you must 
specify the SYSTEM option. 

Note that the default number of units in VSFORTL is 8 (UNTABLE 
option). You will probably want to specify a larger number of 
units. If you will not be using a SYSTERM data set and will be 
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compiling with VS FORTRAN in a batch environment in the VSFORTC 
macro, specify NOTRMFLG and NOTERMINAL to avoid messages about 
having no terminal "online." You only need to code the options 
you specifically want to control. 


USING THE ACCVSF PROCEDURE 

This procedure invokes SMP to perform initial installation or 
periodic service of the product. For ease of reference* the 
data sets it refers to have been grouped as: 

• SMP data sets 

• FORTRAN data sets 


USING THE INSTALL JOB 

The INSTALL job invokes the four procedures described above to 
accomplish the installation. The job allocates* initializes* 
receives* and applies the program product. 

If you are installing in a target library that has not 
previously contained this product* the message IEW0342 will be 
generated during link-editing. A condition code of 4 may result 
from SMP* and a condition code of 4 or 8 from the linkage 
editor. This message and the condition codes resulting from it 
may safely be ignored. 


VERIFYING SUCCESS 


In order to verify the success of the installation process* you 
may want to run a sample program. Below is sample JCL to 
execute the compile-load-go procedure* FORTVCLG* provided in 
SYS1.PROCLIB* and to run the sample program* IFYSMPFT, provided 
in SYS1.SAMPLIB. 


//SAMPLIB 

JOB 

//FORTRAN 

EXEC FORTVCLG 

//FORT.SYSIN 

DD DSN=SYS1.SAMPLIB(IFYSMPFT),DISP=SHR 


USING THE ACCEPT JOB 

Hhen you are satisfied that VS FORTRAN Release 4.0 is operating 
correctly* use the ACCEPT job to store the product in your 
system's distribution libraries (DLIBs). Installation of VS 
FORTRAN Release 4.0 is now complete. 

If you are installing in distribution libraries that have not 
previously contained VS FORTRAN* you will receive the message 
HMA2471 for modules IFYUATBL and IFXOOPTS. These messages can 
be ignored. 

The DIS(WRITE) at the end of the APPLY and ACCEPT specifies that 
the directory for the SMPCDS and SMPACDS data sets is to be in 
storage during processing. This decreases the wait time for I/O 
operations. A description of the DIS operand is found in the 
OS/VS System Modification Program (SMP): System Programmer's 
Guide . 


) 
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CHAPTER 5. INSTALLATION UNDER VSE 


This chapter describes the standard installation of the VS 
FORTRAN Compiler and Library under VSE/Advanced Functions. The 
procedure for installing the Library only is the same as the 
procedure for installing the Compiler and Library. 

For specific information on space allocations, module and macro 
names and other details needed to install the Compiler and 
Library, see the VS FORTRAN Program Directory. For information 
on the features that you can customize to fit your 
installation's needs, see Chapter 9, "Customization Under VSE" 
on page 52. 


I BASIC MACHINE-READABLE MATERIAL 

The distribution medium for the basic material of the VS FORTRAI 
Compiler and Library, and the VS FORTRAN Library only, is an 
unlabeled 9-track tape written at either 1600 or 6250 BPI. 

The basic material tape is in a format suitable for installatioi 
with MSHP. 

For more information on the order of files and their 
descriptions, see the Program Directory. 


I ADDITIONAL STORAGE REQUIREMENTS 

See the Program Directory for details on the additional system 
library storage required to install the VS FORTRAN Compiler and 
Library. 


TARGET LIBRARIES 

The libraries required by the installation process for VSE are: 
R elo catable 

A5748F03.SYSRLB.VLNKMLIB 
A5748F03.SYSRLB.VFORTLIB 
Core Image 

A5748F03.SYSCLB.VFLODLIB 
Source Statement 
A5748F03.SYSSLB.VSRCLIB 


| DESCRIPTION OF LIBRARIES 


VLNKMLIB Library of interface modules used in the link-edit 
step in link mode only. 

VFORTLIB Library of VS FORTRAN library processing modules 

needed in the link-edit step for both link mode and 
load mode. 

VFLODLIB Library of VS FORTRAN library modules required at 

execution in load mode only. After installation, this 
library also contains the VS FORTRAN compiler. It is 
required at compilation time. 


VSRCLIB Library of VS FORTRAN options macros and sample 
program. 
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INSTALLATION OVERVIEW 


To install VS FORTRAN under VSE/Advanced Functions using MSHP, 
take the following steps< 

1. Use the INSTALL COMPONENT to install the compiler and the 
library. 

2. Optionally, code the VSFORTC macro instruction to change the 
compiler default options, and code the VSFORTL macro 
instruction to change the library default options. Assemble 
these macros, and relink-*edit the compiler to put the 
changed defaults into effect. 


INSTALLATION PROCEDURES 

The following sections give detailed descriptions of the steps 
outlined in the installation overview. If a previous release of 
VS FORTRAN is already installed on your system, you may want to 
move it to a private relocatable library to prevent it from 
being overlaid by Release 4.0. 


| USING MSHP 


You must use the Maintain System History Program (MSHP) to 
install the VS FORTRAN Compiler and Library. Refer to 
VSE/Advanced Functions Maintain System History Program (MSHP) 
User's Guide for information regarding the use of MSHP. 

Run the MSHP function INSTALL COMPONENT. See "Installing Basic 
Material into Private Libraries" on page 20 or "Installing Basic 
Material into Work Libraries" on page 21, for a sample job 
stream to install the VS FORTRAN Compiler and Library. 

If you are installing the VS FORTRAN Compiler and Library in 
private libraries using MERGE, you will have to add appropriate 
ASSGN, DLBL, and EXTENT statements for the private libraries. 

MSHP will invoke the appropriate system utilities to catalog the 
affected modules in your private core image, relocatable, and 
source statement libraries. 
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xxxx specifies the relative track or block of the start of 
the private libraries and auxiliary history file which are 
created on SYS007, SYS008, SYS009, and SYS002. For 
count-key-data devices, xxxx must be on a cylinder boundary. 

yyy specifies the number of tracks or blocks to be allocated 
for the private library. 

v specifies the number of tracks or blocks allocated for the 
library directory. 

For exact space requirements (xxxx, yyy, and v), see the VS 
FORTRAN Program Directory. 


INSTALLING BASIC MATERIAL INTO WORK LIBRARIES 


You can use the following sample JCL to install basic material 
into work libraries, and merge them into system or previously 
assigned private libraries. 


// JOB INSTALL 


INSTALLATION OF 5748.F03 


THIS JOB WILL RESTORE THE FORTRAN LIBRARIES 
FROM THE DISTRIBUTION TAPE INTO WORK LIBRARIES 
(DEFINED BY THE 'DEFINE* MSHP STATEMENTS). 

THEN MERGE THE WORK LIBRARIES INTO YOUR SYSTEM, 
OR PRIVATE LIBRARIES (IF ASSIGNED). 


NOTE: ALLOCATIONS GIVEN ARE FOR IBM 3330. 

FOR OTHER DASD TYPES, ADJUST ACCORDINGLY. 


// ASSGN SYS006,182 INPUT DISTRIBUTION TAPE 

// ASSGN SYS007,130,V0L=V0LSER,SHR WORK UNIT FOR PRIV CL 

// ASSGN SYS008,SYS007 WORK UNIT FOR PRIV RL 

// ASSGN SYS009,SYS007 WORK UNIT FOR PRIV SL 

// ASSGN SYS002,SYS007 AUX HISTORY FILE 

// MTC REW,SYS006 REWIND INPUT TAPE 

// OPTION CATAL 
// EXEC MSHP 

INSTALL COMPONENT FROMTAPE MERGE 

DEFINE CLIB PRIV EXTENT = xxxxsyyy DIR = v - 
ID = 'A5748F03.SYSCLB.VFLODLIB* 

DEFINE RLIB PRIV EXTENT = xxxxiyyy DIR = v - 
ID = 'A5748F03.SYSRLB.VFORTLIB' 

DEFINE SLIB PRIV EXTENT = xxxxiyyy DIR = v - 
ID = 'A5748F03.SYSSLB.VSRCLIB' 

DEFINE HISTORY AUX EXTENT = xxxxiyyy UNIT = SYS002 - 
ID = 'A5748F03.HISTORY.FILE' 

RETRACE COMP ID=5748-F0-300 

/X 

// ASSGN SYS006,182 INPUT DISTRIBUTION TAPE 

// ASSGN SYS007,UA 

// ASSGN SYS008,130,V0L=V0LSER,SHR OUTPUT UNIT FOR PRIV RLIB 
// ASSGN SYS009,UA 

// ASSGN SYS002,SYS008 AUX HISTORY FILE 

/X 

// DLBL IJSYSHF,'A5748F03.HISTORY.FILE' 

// EXTENT SYSREC,VOLSER,1,0,xxxx,yyy 

// MTC REW,SYS006 REWIND INPUT TAPE 

// MTC FSF,SYS006,5 FORWARD TAPE TO 6TH FILE 

// OPTION CATAL 
// EXEC MSHP 

INSTALL COMPONENT FROMTAPE MERGE 

DEFINE RLIB PRIV EXTENT = xxxxiyyy DIR = v - 
ID = 'A5748F03.SYSRLB.VLNKMLIB' 

DEFINE HISTORY AUX EXTENT = xxxxiyyy UNIT = SYS002 - 
ID = 'A5748F03.HISTORY.FILE' 

RETRACE COMP ID=5748-F0-300 

/x 

/& 
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Notes: 


1. Core image library allocations should be doubled if you plan 
to relink-edit the compiler later. 

2. SYS006 shows the device address of a 9-track product tape 
unit on 182. 

3. SYS007 shows the device address of a 3330 DASD unit on 130. 
The 'VOLSER* should be replaced with the VOLID of the DASD 
to be used. 

4. xxxx specifies the relative track or block of the start of 
the private libraries and auxiliary history file which are 
created on SYS007, SYS008, SYS009, and SYS002. For 
count-key-data devices* xxxx must be on a cylinder boundary. 

5. yyy specifies the number of tracks or blocks to be allocated 
for the private library. 

6. v specifies the number of tracks or blocks allocated for the 
library directory. 

7. For exact space requirements (xxxx, yyy, v), see the VS 
FORTRAN Program Directory. 


| MAKING MODIFICATIONS 


If your installation requirements are satisfied by the 
IBM-supplied compiler defaults in IFX00PTS and unit assignment 
table values in IFYUATBL, then this completes the installation 
of the VS FORTRAN Compiler and Library. 

If you want to change either or both of the IFXOOPTS and 
IFYUATBL modules, then proceed to "Compiler and Library 
Defaults" on page 53 for instructions, and run the sample 
program after completing your modifications. 


VERIFYING SUCCESS 


A sample VS FORTRAN program (IFYSMPFT) is available in the 
source statement library to verify the success of the compiler 
installation. You may, optionally, now run the sample program 
to verify that VS FORTRAN has been installed correctly. To do 
this, code and execute the following job: 


// JOB SAMPLEPG THIS JOB WILL COMPILE AND EXEC THE SAMPLE PGM 
// OPTION LINK,PARTDUMP 

// EXEC VFQRTRAN,SIZE=AUT0,PARM= 1 LIST,XREF,MAP,FIXED* 

INCLUDE (IFYSMPFT) 

/X 

// EXEC LNKEDT 

/X 

// EXEC ,SIZE=AUT0 

/X 

/& 
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CHAPTER 6. INSTALLATION UNDER VM 


This chapter describes the standard installation of the VS 
FORTRAN Compiler and Library under VM/SP. If you have ordered 
the Library only, follow the installation procedures as 
described for the Compiler and Library, but use the library 
installation exec as noted in "Basic Machine-Readable Material," 
below. 

For specific information on space allocations, module and macro 
names and other details needed to install the Compiler and 
Library, see the VS FORTRAN Program Directory. For information 
on the features that you can customize to fit your 
installation's needs, see Chapter 10, "Customization Under VM" 
on page 61. 


BASIC MACHINE-READABLE MATERIAL 


The distribution medium for the VS FORTRAN Compiler and Library, 
and the VS FORTRAN Library only, is an unlabeled 9-track tape 
written at either 1600 or 6250 BPI in EBCDIC in CMS tape dump 
format. It is intended to be used under the Conversational 
Monitor System (CMS) component of the IBM Virtual Machine 
Facility/370 (VM/370). 

See the Program Directory for the order of files and their 
descriptions when installing either the library only, or the 
compiler and library. 

If you are installing the library only, follow the instructions 
for installing the Compiler and Library, but use EXEC I5748LM3. 


I ADDITIONAL STORAGE REQUIREMENTS 

See the VS FORTRAN Program Directory for details on the 
additional system library storage required to install the VS 
FORTRAN Compiler and Library. 


| TARGET LIBRARIES 

The libraries required for the installation process for VM are: 
Text Libraries 
VALTLIB 
VLNKMLIB 
VFORTLIB 
Load Libraries 
VFLODLIB 
Macro Libraries 
VFMACLIB 


1 
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| LIBRARY DESCRIPTIONS 


VALTLIB Library of alternative mathematical routine modules. 

VLNKNLIB Library of interface modules used in link mode only. 

This library must be concatenated ahead of VFORTLIB 
for the creation of an executable program. 

VFORTLIB Library of VS FORTRAN library processing modules 

needed for the creation of an executable program in 
both link mode and load mode. 


VFLODLIB Library of VS FORTRAN library modules required at 
execution in load mode only. 


VFMACLIB Library of VS FORTRAN library customization macros. 


I INSTALLATION OVERVIEW 

To install VS FORTRAN under VM, take the following steps: 

1. Log on to VM. In write status, link to the disk that will 
hold the files needed for service applications, and access 
it as your A-disk. This disk must not be accessed during 
execution of a VS FORTRAN program. 

2. Link to a second disk in write status. This disk will be 
the product disk to hold executable modules and txtlibs. 

You will be prompted during the installation process for the 
access mode of this disk. 

3. Mount the distribution tape on virtual address 181. 

4. Load the first file onto the work disk. (This file contains 
the installation EXEC procedure.) 

5. Execute EXEC I5748F03, the installation EXEC, which begins 
product installation. 

6. Respond to the prompts from the installation EXEC. As you 
answer the prompts, the EXEC performs the installation. 

For complete details on the installation process under VM, see 

the VS FORTRAN Program Directory and the following section, 

"Installation Procedures." 


| INSTALLATION PROCEDURES 

The following sections give detailed descriptions of the steps 
outlined in the installation overview. If a previous version of 
VS FORTRAN is already installed on your system, you may want to 
save it somewhere other than your product disks to prevent it 
from being overlaid by Release 4.0. 

Load the install EXEC for the VS FORTRAN Compiler and Library 
using the CMS TAPE LOAD commands from File 1 of the distribution 
tape. Complete the installation by executing the installation 
EXEC. 


| PREPARING TO EXECUTE THE EXEC 

Before executing the EXEC, complete the following steps: 

1. Determine where you will store the components required for 
service application to this product. The disk you choose 
must be your A-disk during the installation process. It 
must not be the disk containing the installed executable 
product. 

If you do not have enough free space, create a temporary 
work disk and access it as your A-disk. This disk will be 
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used as a wbrk disk during installation, and must contain 
the equivalent of 25 cylinders on a 3330 disk drive. 

If you use a temporary disk, unload its contents to tape 
after the install to retain the files needed for service 
installation. 

2. Determine where you will install the executable product. 

This may be the system disk dr a minidisk containing 10 
cylinders of space on a 3330 disk drive, or the equivalent. 

3. During installation, you will be prompted for information. 

To be prepared for the prompts, consider the following: 

a. You will be asked to accept the CMS default DCB 
characteristics: 

RECFM F, LRECL 80, BLOCK 80, BUFNO 1, 
or to choose OS/VS characteristics: 

RECFM U, LRECL 800, BLOCK 32756, BUFNO 2. 

b. The default number of units in the FORTRAN unit 
assignment table is 8. If you want to change the number 
of units in the FORTRAN unit assignment table, or the 
FORTRAN unit numbers that will be used as defaults for 
READ, PUNCH, and WRITE statements, respond EDIT to the 
prompt about editing the VSF0RTL macro. 

When coding the macro, column 1 must be blank. VSFORTL 
may appear anywhere before column 72 but must precede 
the operands by at least one blank. The operands are 
separated by commas and may be continued on any number 
of cards as long as column 72 contains a nonblank 
character and the data on the following card begins in 
column 16. You do not need to code all keyword 
parameters. Code only those whose default you wish to 
change. Chapter 3, "The Installation Macros: VSFORTC 
and VSFORTL" on page 5, describes the options you may 
choose, and the IBM-supplied defaults. 

c. Determine whether or not the alternative mathematical 
routines are to be installed. If your response is YES, 
they will be loaded into an alternate TXTLIB containing 
only those routines. Refer to VS FORTRAN Programming 
Guide for more information on the use of these routines. 

d. If you are satisfied with the IBM-supplied options to 
the compiler, reply NOEDIT to the prompt about editing 
the VSFORTC macro. If you are compiling with VS FORTRAN 
in a batch environment and will not be using a SYSTERM 
data set, specify the options NOTRMFLG and NOTERMINAL to 
avoid messages about having no terminal online. 

e. Determine whether or not you want the compiler to be 
installed as a discontiguous shared segment. If so, be 
sure that space has been reserved on a CP-owned DASD 
volume for the shared segment, and that the segment name 
has been placed in the VM/SP system table. 

Also, determine the size of virtual storage you need to 
include the compiler shared segment during the install. 
See "The Compiler as a Discontiguous Shared Segment" on 
page 61 for more detail. 

Note: To execute the compiler as a module, you need a 

2-megabyte virtual machine size. 
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| BEGINNING THE INSTALLATION 

Log on to VM/SP and mount the distribution tape on virtual 
address 181. 

If necessary, define a size of virtual storage large enough to 
include a compiler shared segment. For example, if you want the 
VS FORTRAN compiler to be located from 2 megabytes to 3 
megabytes, then your virtual machine size should be at least 3 
megabytes. In this example, you would issue the command: 

DEFINE STORAGE 3M 

(You must be a Class E user to initialize the DCSS.) 


| LINKING TO THE DISK 

Link, in write status, to the system disks or minidisks that 
will hold the product. Remember, you may not choose the A-disk 
because the A-disk is used as a work disk. 


| LOADING THE EXEC 

Load the first tape file containing the I5748F03 EXEC onto the 
work disk by giving the command: 

TAPE LOAD X X A 


| EXECUTING THE EXEC 

Execute the I5748F03 EXEC. This will load VS FORTRAN modules 
onto the A-disk and begin installation of the product. 

Respond to the prompts from the installation EXEC which ask you 
to: 

• Provide the file mode of the product disk, for example: C. 

• Verify that the distribution tape is mounted on device 181. 

• Choose the CMS file characteristics or VS FORTRAN-supplied 
characteristics found in the unit assignment table. 

• Edit the library options or accept defaults. 

• Change the default VFORTLIB name or accept the default. 

• Change the default VLNKMLIB name or accept the default. 

• Change the default VFLODLIB name or accept the default. 

• Choose whether or not to install alternate mathematical 

library subroutines. 

• Edit the compiler options or accept the defaults. 

• Choose whether or not to install the compiler in a DCSS, and 
if so, provide the hexadecimal starting address of the DCSS. 
For example, a 2-megabyte shared segment starting address 
converts to 200000. Enter this hexadecimal number in 
response to the prompt. 

• Compile and execute the sample program if you have not 
installed a shared segment. 

You can halt execution of the installation EXEC by responding to 
any request with QUIT. If you do this, you must start the EXEC 
again from the beginning. 
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After you have responded to the prompts, the installation EXEC 
will complete the installation. You will see the following 
message, indicating successful completion of the installation. 

•VS FORTRAN COMPILER & LIBRARY INSTALLATION IS COMPLETE* 


I VERIFYING SUCCESS 


The EXEC will allow you to run a sample program, IFYSMPFT, to 
verify the success of your installation. That will complete 
your use of the installation EXEC. 

However, if you have just installed the compiler as a 
discontiguous shared segment, you must define a virtual machine 
to fit below the address of the shared segment and re-IPL. For 
example, if the compiler begins at 2 megabytes (2M), you must 
enter the following to run the sample programt 

CP DEFINE ^TnPAnF 

CP IPL CMS 

ACCESS 333 A 

FORTVS IFYSMPFT 

GLOBAL TXTLIB VFORTLIB CMSLIB 

GLOBAL LOADLIB VFLODLIB 

LOAD IFYSMPFT (NOAUTO START 

where 333 A is the disk where the sample program, IFYSMPFT, is 
loaded. 


| SHARED SYSTEM INSTALLATION 

If you want to install the library module IFYVRENC as a shared 
system, see "IFYVRENC as a Discontiguous Shared Segment” on 
page 70 for more information. IFYVRENC and its copies must be 
installed separately because they may contain a variable number 
of CSECTs. CSECT IFYCRNAM must be built separately, to 
accommodate user installation requirements. 
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CHAPTER 7. CUSTOMIZATION UNDER ALL SYSTEMS 


The VS FORTRAN extended error-handling facility# which can be 
customized regardless of which operating system you are using# 
is discussed in this chapter. Other customization features are 
discussed in separate chapters for each operating system. 


fXIENDjgJEjfL^^ 

By allowing you to modify information in an area of main storage 
called the error option table# the extended error-handling 
facility gives you considerable control over errors that occur 
during execution. The error option table specifies the action 
that will take place when an error occurs. A permanent copy of 
the error option table is maintained as a VS FORTRAN library 
module. 

Hhen an error is detected by the VS FORTRAN Library# you cam 

• Continue execution after the error with standard VS FORTRAN 
corrective action# 

• Or# optionally# specify your own corrective action. 

Hhen an error occurs# a brief message is printed# along with an 
error identification number. The data in error (or some other 
associated information) is printed as part of the message text. 

A summary error count# printed when a job is completed# informs 
you how many times each error occurred. (A complete listing of 
library messages can be found in VS FORTRAN Language and library 
Reference.) 

For each error condition detected# you have both dynamic and 
default control over* 

• The number of times the error is allowed to occur before 
your program terminates 

• The maximum number of times the message may be printed 

• Hhether or not the traceback map is to be printed with the 
messa ge 

• Hhether or not a user-written error exit routine is called 


MODIFYING THE ACTION TAKEN BY THE ERROR MONITOR 

Hhen an error is detected by a VS FORTRAN library routine# the 
VS FORTRAN error monitor receives control. The error monitor 
prints the necessary diagnostic and informative messages and 
then takes one of the following actions* 

• Terminates the Job. 

•. Returns control to the library routine# which takes a 

standard corrective action and then continues execution. 

• Calls a subroutine that you provide to resolve the error 
situation# and then returns to the library routine. The 
routine then continues execution. 

The actions of the error monitor are controlled by settings in 
the error option table. You can# if you choose# modify the 
action taken by the error monitor by modifying the error option 
table. IBM provides a standard set of 182 entries in the table. 
The default error option table supplied by IBM is shown in 
Chapter 10 of VS FORTRAN Language and Library.^Refer_ei>ce . 
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You can modify the action taken by the error monitor at either 
of two times: 

• Following installation, during customization 

You can customize the error option table by providing 
additional entries, or by modifying the IBM-supplied 
defaults for the standard entries. These modifications 
change the copy of the error option table that is 
permanently maintained as a VS FORTRAN library module. 

• At execution 

If an error option table entry is specified as "modifiable," 
you can update an error option table entry dynamically at 
execution time. You can specify a user exit address, or 
change several other options in the error option table 
entry. These changes are temporary, and apply only to the 
program you are executing. To make the changes dynamically, 
your program must call the error-handling subroutines 
supplied with VS FORTRAN. These subroutines are described 
under "Specifying Dynamic Control" on page 37. 


CHANGING ERROR OPTION TABLE ENTRIES DURING CUSTOMIZATION 

Before beginning to customize the error option table entries, 
you must do some planning. For example, you must assign error 
numbers to the error conditions you want detected, and you must 
plan the error option table entries for these conditions. 
Remember that these modifications will affect everyone at your 
installation who uses VS FORTRAN. 


Planning for the Modifications 

Hhen planning your modifications, consider the following: 

• You must plan the error condition numbers for your 
installation*s programs. IBM-designated error conditions 
have reserved error codes from 120 to 301. The error codes 
you assign for installation-designated error conditions must 
be in the range 302 to 899. VS FORTRAN uses the error code 
to find the proper entry in the error option table. 

• You must know the number of error conditions for your 
installation, so that appropriate entries will be provided 
in the error option table. 

• The routine that uses the VS FORTRAN error monitor for error 
service should have a general-purpose function. 


An Overview 

The error option table is supplied by IBM, and installed as a 
module in the VS FORTRAN library. Using the VSFUOPT macro, you 
can: 

• Add new error message numbers to the error option table. 

Yoif can then write your own message text and call ERRMON in 
your program to write the message. 

• Change the default values in the error option table. 

You can change the default values for IBM-supplied messages, 
or for new message numbers you have previously added. 

The defaults for IBM-supplied error messages are documented in 
Chapter 10 of VS FORTRA N Language and Library Reference. 
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You must complete the following steps to customize the error 
option table. More detail is provided for each step in the 
sections that follow. 

1. Code the VSFUOPT macro instructions. 

2. Using the VSFUOPT macro instructions you have written in 
Step 1* assemble the module IFYUOPT. 

3. Replace the object module IFYUOPT in VFORTLIB. 

4. Rebuild the composite module IFYVLBCM. 


| Step l: Coding the VSFUOPT Macro Instructions 

To create new entries in the error option table* or change the 
defaults for existing entries* code one or more VSFUOPT macro 
instructions* followed by an END statement. In all cases* you 
must code at least the first macro instruction and the END 
statement. 

CODING THE REQUIRED VSFUOPT MACRO INSTRUCTIONS The first macro 
instruction has the following syntax: 

VSFUOPT CADDNTRY=nl t,ARCH=STDIXA3 

where 

ADDNTRY 

is a positive integer specifying the number of additional 
error message numbers to be added to those supplied by IBM. 
Include this parameter if you want to add your own new 
message numbers to the error option table. Additional 
error message numbers will begin at 302 and continue 
sequentially* up to a maximum of 899. Thus* the maximum 
value for ADDNTRY is 598. 


ARCH 

specifies whether you want a standard (non-MVS/XA) or 
MVS/XA error option table. 


specifies that you want a standard error option table. 
STD is the default. 

XA 

specifies that you want an MVS/XA error option table. 
You can specify XA in any operating system environment 
if Assembler H* Version 2* Release 1* is used to 
assemble the error option table. However* you must 
specify XA to execute under MVS/XA. 

If you want to add additional error messages without modifying 
any existing entries in the error option table* follow your 
VSFUOPT instruction with an END statement* and go on to "Step 2: 
Assembling the Module IFYUOPT" on page 36. 

If you want to modify defaults for IBM-supplied message numbers* 
but you do not want to add your own new message numbers* you 
must still code the first VSFUOPT instruction. Then code one or 
more optional VSFUOPT macro instructions. 

CODING THE OPTIONAL VSFUOPT MACRO INSTRUCTION: If you want to 
modify the default values in the error option table* for either 
IBM-supplied message numbers or your own additional message 
numbers* you must also code one or more of the following VSFUOPT 
macro instructions. Follow your final macro instruction with an 
END statement. The optional macro instructions have the 
following syntax: 
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VSFUOPT MSGNO=(ermsno,qty) 

[,ALLOW=errs] 

C,PRINT=prmsg] 

C,MODENT =(YES|NO)] 

£,PRTBUF=(YES I NO}] 

[,INFOMSG= £YESI NO)] 

C ,TRACBAK 5 {YES INO>1 
[,USREXIT=exitname] 

where 

MSGNO 

specifies which error message numbers will be affected by 
the default changes. 

ermsno 

specifies the first error message number in a series 
of consecutive numbers. 


qty 

specifies the number of consecutive error message 
numbers, beginning with ermsno. If the defaults for 
only one error message number are to be changed, then 
qty, the preceding comma, and the surrounding 
parentheses may be omitted. 

For example, if the parameter were coded MSGN0=(153,4), 
then the defaults for four error messages, beginning with 
number 153, will be changed as specified by the remaining 
parameters. Thus, the defaults for messages 153 through 
156 will be changed. 


ALLOW 

specifies the number of times the error may occur before 
the program is terminated. 

errs 

specifies the number of errors allowed. To specify an 
exact number of errors allowed, errs must be a 
positive integer with a maximum of 255. A zero, or 
any number greater than 255, means the error can occur 
an unlimited number of times. 

Be aware that altering an error option table entry to 
allow "unlimited" error occurrence may cause a program 
to loop indefinitely. 

If the message number is an IBM-supplied message number, 
the default value for this parameter is listed in the table 
in Chapter 10 of VS FORTRAN Language and Library Reference . 
If the message number has been added by your installation, 
the default value is 10. 


PRINT 

specifies the number of times the error message is to be 
printed. Subsequent occurrences of the error do not cause 
the message to be printed again. 

prmsg 

specifies the number of times the message is printed. 
To specify an exact number of times printed, prmsg 
must be a positive integer, with a maximum of 254. A 
zero means the message will not be printed. 

Specifying 255 means the message can be printed an 
unlimited number of times. 

If the message number is an IBM-supplied message number, 
the default value for this parameter is listed in the table 
in Chapter 10 of VS FORTRAN language and Library Reference . 
If the message number has been added by your installation, 
the default value is 5. 
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NODENT 

specifies whether or not the ERRSET subroutine may be used 
to modify the error option table entry for this message. 

YES 

specifies that the entry may be modified. 

NO 

specifies that the entry may not be modified. 

If you code a YES value for an IBM-supplied error message 
whose default is NO* and you subsequently modify this entry 
using the ERRSET subroutine, you may receive undesirable 
results. Check the table in Chapter 10 of VS FORTRAN 
Language and Library Reference to find out which message 
numbers have a "Modifiable Entry" value of NO. 

See "Default Values for the Optional Macro Instruction 
Parameters" on page 35 for the default for this parameter. 

PRTBUF 

specifies whether or not the I/O buffer is to be printed 
following certain I/O errors. 

YES 

specifies that the contents of the buffer are to be 
printed. 


NO 

specifies that the contents of the buffer are not to 
be printed. 

This option applies only to IBM-supplied error messages. 

Do not code YES unless the IBM-supplied default for this 
error message number already allows the buffer to be 
printed. Check the table in Chapter 10 of VS FORTRAN 
Language andLibrary Reference to find out which message 
numbers have a "Print Buffer" value of YES. 

See "Default Values for the Optional Macro Instruction 
Parameters” on page 35 for the default for this parameter. 

INF0MS6 

specifies whether the message is an informational or an 
error message. 

YES 

specifies that the message is informational only. In 
this casei 

• No user error exit is taken. 

• The value of ALLOH is ignored. Execution will not 
terminate, even if it reaches the designated 
number of errors allowed. 

• The error summary printed after termination of 
your program does not include a count of the 
number of times the condition occurred. 

NO 

specifies that the message is an error message. 

See "Default Values for the Optional Macro Instruction 
Parameters” on page 35 for the default for this parameter. 

TRACBAK 

specifies whether or not a module traceback listing is to 
be printed following the error message. 

YES 

specifies that the traceback listing is to be printed. 
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NO 

specifies that the traceback listing is not to be 
printed. 

See "Default Values for the Optional Macro Instruction 
Parameters" for the default for this parameter. 

USREXXT 

specifies the user error exit routine that will be invoked 
following the printing of the error message. 

exitname 

specifies the entry point name of the user error exit 
routine. If the routine is specified here, instead of 
being specified as a parameter passed to the ERRSET 
subroutine, the routine will be invoked when the error 
occurs for any user. In this case, the routine will 
be invoked, regardless of whether the ERRSET routine 
was used or not. (However, programs can still call 
ERRSET dynamically to specify their own exit routine 
instead of the one specified by USREXIT.) 

For programs operating in link mode, the user error exit 
routine must be link-edited with all users' programs. To 
make the user error exit routine available to users who 
operate in load mode, the routine must be included in the 
composite module IFYVLBCM. 

If the user error exit routine must communicate with the VS 
FORTRAN program in which the error was detected, it must do 
so using a dynamic common area, not a static one. 

There is no default value for this parameter. 

DEFAULT VALUES FOR THE OPTIONAL MACRO INSTRUCTION PARAMETERS: 

The default values for four parameters on the optional VSFUOPT 
macro instruction vary according to two conditions. These 
conditions and the default values are as follows: 

1. The message number is an IBM-supplied message number, and 
none of the default values for MODENT, PRTBUF, INFOMSG, 
TRACBAK are being changed. 

For this condition, the default values are those found in 
the table in Chapter 10 of VS FORTRAN Language and Library 
Reference . 

2. The message number is an IBM-supplied message number, and 
the default values for one or more of the following are 
being changed: MODENT, PRTBUF, INFOMSG, or TRACBAK. 

OR 

The message number has been added by your installation. 

For this condition, the default values for the unspecified 
parameters are as follows: 

Parameter Default 

MODENT YES 

PRTBUF NO 

INFOMSG NO 

TRACBAK YES 
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| Step 2: Assembling the Nodule IFYUOPT 

Using the VSFUOPT macro instructions you have written in Step 1# 
assemble the module IFYUOPT. To assemble the module# make the 
VS FORTRAN library that contains the VSFUOPT macro definition 
available to the assembler. If you are running under* 

• MVS t You will find the VSFUOPT macro in SYS1.VSFLBS. 

Make this library available to the assembler using a SYSLIB 
DD statement. 

• VSE: You will find the VSFUOPT macro in 
A5748F03.SYSSLB.VSRCLIB. 

Make this library available to the assembler using a LIBDEF 
command. 

• VM* You will find the VSFUOPT macro in VFMACLIB MACLIB. 

Make this library available to the assembler using a GLOBAL 
MACLIB command. 


| Step 3: Replacing the Object Nodule IFYUOPT 

Replace the existing module IFYUOPT in VFORTLIB with the new 
module IFYUOPT# assembled in Step 2. If you are running under* 

• MVS* You must link-edit the module into VFORTLIB. 

• VSE* You must catalog the module using the CATALR control 
statement of the MAINT program. 

• VM* You must delete the existing module in VFORTLIB TXTLIB# 
and then add the new IFYUOPT using the CMS TXTLIB command. 


| Step 4: Rebuilding the Composite Nodule IFYVLBCM. 

Because the module IFYUOPT is a required module in the composite 
module IFYVLBCM# your new IFYUOPT module must be added to 
IFYVLBCM. Any user exit error routines specified in USREXIT 
parameters must also be included in IFYVLBCM. For more detail 
on rebuilding IFYVLBCM# follow the instructions for "Building 
the Composite Modules" in the chapter on customization under 
your system. 


CALLING ERRNON TO EXECUTE YOUR OWN ERROR HANDLING 

If you have added your own error messages# any program can call 
the VS FORTRAN error monitor (ERRMON) routine to write them out. 
ERRMON examines the error option table for the appropriate error 
number and its associated entry# and takes the actions 
specified. 

For information on how to use ERRMON# see VS FORTRAN Programming 
Guide . 


| CHANGING ERROR OPTION TABLE ENTRIES DYNAMICALLY 

I As a VS FORTRAN programmer# you can modify entries in the error 

option table at execution time for a specific program. 
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| Planning for Your Own Messages 

If you plan to print any of your own messages in the range 302 
through 899, the installer must have assigned the error numbers 
for your use. IBM-designated error conditions have reserved 
error codes from 120 through 301. 


Specifying Dynamic Control 

You can specify dynamic error control during your program's 
execution by calling the following subroutines supplied with VS 
FORTRAN: 

• ERRSAV—to obtain a copy of an error option table entry 

• ERRSTR—to store an entry in the error option table 

• ERRSET—to change parameters in the error option table 

• ERRTRA—to request a trace of program execution 

• ERRMON—to write out your own error message 

For reference information on the extended erroi—handling 
subroutines? and information describing actions you can take to 
correct an error, see VS FORTRAN Language and Library Reference . 

For example, a common application of dynamic error handling is 
to specify a user exit address in the error option table. When 
the table entry defined as the user exit address contains an 
address, the user exit is taken; otherwise, only the standard 
corrective action is taken. If you want to specify that no 
corrective action, either standard or your own, is to be taken, 
you must indicate in the table entry that only one error is to 
be allowed before termination of execution. 

You can dynamically modify other error option table entries 
besides the user exit routine. For a complete list and 
description of these options, see the discussion of the ERRSET 
subroutine in VS FORTRAN Language and Library Reference . 
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CHAPTER 8. CUSTOMIZATION UNDER MVS 


The following features* which can be customized under MVS* are 
discussed in this chapters 

Alternative mathematical library subroutines 

Cataloged procedures 

The separation tool 

Reentrant I/O library modules 

Execution-time loading of library modules 


ALTERNATIVE MATHEMATICAL LIBRARY SUBROUTINES 

You may choose to replace the supplied standard VS FORTRAN 
routines with the alternative mathematical library subroutines* 
or you may insert the alternative routines into a local user 
library so they can be made available when needed by the 
individual user. 

The alternative mathematical library subroutines are link-edited 
in SYS1.VALTLIB by the installation process. 

To make the alternative mathematical routines available to all 
users* you should change the cataloged procedures FORTVCL* 
FORTVCLG* etc.* provided in SYS1.PROCLIB to concatenate 
SYS1.VALTLIB ahead of SYS1.VFORTLIB in the link-edit step SYSLIB 
DD statement. For example* use these statements in load mode: 

//SYSLIB DD DSN=SYS1.VALTLIB,... 

// DD DSN=SYS1.VFORTLIB*... 

Or use these statements in link mode: 

//SYSLIB DD DSN=SYS1.VALTLIB,... 

// DD DSN=SYS1.VLNKMLIB*... 

// DD DSN=SYS1.VFORTLIB,... 
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Cataloged procedures are placed in the procedure library, 

SYS1.PROCLIB. You may want to edit the supplied procedures to 
fit your system's requirements. For additional information on 
writing and processing cataloged procedures under MVS, see 


A typical example of a cataloged procedure is FORTVCLG, which 
compiles, link-edits, and executes a VS FORTRAN program in load 
mode. To help you understand the various functions and 
statements. Figure 1 is a listing of this procedure for your 
reference during the discussion below. 


//FORTVCLG PROC FVPGM=FORTVS,FVREGN=1200K,FVPDECK=NODECK, 


// 

// 

// 

// 

//X 

//x 

//x 

//x 

//x 

//x 

//X 

//X 

//X 

//X 

//X 

//X 

//X 

//X 

//X 

//FORT EXEC 
// 

//SYSPRINT 

//SYSTERM 

//SYSPUNCH 

//SYSLIN 

// 

//LKED EXEC 
// 

//SYSPRINT 

//SYSLIB 

//SYSUT1 

//SYSLMOD 

// 

//SYSLIN 

// 

//GO EXEC 

//FT05F001 

//FT06F001 

//FT07F001 

//STEPLIB 


FVPOLST=NOLIST,FVPOPT=0,FVTERM='SYSOUT=A',GOREGN=100K, 
FVLNSPC='3200,(25,6)', 

6GF5DB- 5 DBNAME=SYSIN*, G0F6DD= *SYSQUT=A' 

G0F7DD='SYSOUT=B' 

PARAMETER DEFAULT-VALUE USAGE 


FVPGM 

FVREGN 

FVPDECK 

FVPOLST 

FVPOPT 

FVTERM 

FVLNSPC 

GOREGN 

G0F5DD 

G0F6DD 

G0F7DD 


FORTVS 

1200K 

NODECK 

NOLIST 

0 

SYS0UT=A 
3200,(25,6) 
100K 

DDNAME=SYSIN 

SYS0UT=A 

SYS0UT=B 


COMPILER NAME 
FORT-STEP REGION 
COMPILER DECK OPTION 
COMPILER LIST OPTION 
COMPILER OPTIMIZATION 
FORT.SYSTERM OPERAND 
FORT.SYSLIN SPACE 
GO-STEP REGION 
GO.FT05F001 OPERAND 
GO.FT06F001 OPERAND 
GO.FT07F001 OPERAND 


PGM=&FVPGM,REGI0N=8FVREGN,C0ND=(4, LT), 

PARM='&FVPDECK,&FVP0LST,OPTC&FVPOPT)' 

DD SYSOUT=A,DCB=BLKSIZE=3429 
DD &FVTERM 

DD SYSOUT=B,DCB=BLKSIZE=3440 
DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA, 
SPACE=(&FVLNSPC),DCB=BLKSIZE=3200 
PGM=IEWL,REGION=200K,C0ND=(4,LT), 

PARM='LET,LIST,MAP, XREF' 

DD SYSOUT=A 

DD DSN=SYS1.VFORTLIB,DISP=SHR 
DD UNIT=SYSDA,SPACE=(1024,(200,20)) 

DD DSN=&&GQSET(MAIN),DISP=(,PASS),UNIT=SYSDA, 
SPACE=(TRK,(10,10,1),RLSE) 

DD DSN=&&LOADSET,DISP=(OLD,DELETE) 

DD DDNAME=SYSIN 

PGM=X.LKED.SYSLMOD,REGI0N=&G0REGN,C0ND=(4,LT) 
DD &G0F5DD 
DD &G0F6DD 
DD &GOF7DD 

DD DSN=SYS1.VFORTLIB,DISP=SHR 


| Figure 1. An example of a cataloged procedure (FORTVCLG) 


The first job control statement in each cataloged procedure is 
the PROC statement. The PROC statement assigns default values 
to symbolic parameters. 

Symbolic parameters make it easier for you to modify a cataloged 
procedure when it is called. You may assign values to symbolic 
parameters when a cataloged procedure is called, or you may 
accept the default value assigned by the PROC statement. 

The statements shown in Figure 1 have specific functions when 
compiling, link-editing, executing, and loading. 
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COMPILING 


When compiling, the statements have the following functions: 

The EXEC statement for the compilation step named FORT 
specifies the compiler as the program to be executed. It 
does this through the PGM parameter (PGM=FORTVS). 

The DD statements describe data sets required by the 
compiler. 

SYSLIN describes the output of the compilation step, an 
object module stored as a temporary data set named 
&&L0ADSET. 

The DISP parameter is coded (MOD,PASS). MOD permits more 
than one object module to be stored if many source modules 
are submitted for compilation, and PASS permits the data set 
to be used in later job steps. 

You must specify the source module data set in a SYSIN DD 
statement as follows: 

//FORT.SYSIN DD (*|data set name! 


LINK-EDITING 


When link-editing, the statements have the following functions: 

The EXEC statement for the link-edit step named LKED 
specifies the linkage editor as the program to be executed 
(PGM=IEWL). 

In FORTVCL and FORTVCLG, the EXEC statement COND parameter 
indicates that the program is to be executed only if the 
FORT Step has returned a code less than or equal to 4. 

The DD statements describe required data sets. 

SYSLMOD describes the output of the link-edit step. This 
output is a load module named MAIN, which is stored as a 
member of a temporary library named &&GOSET. 

SYSLIN is the input to the linkage editor. 

SYSLIB describes the library module data files. 

When the linkage editor is the first step to be executed, as in 
FORTVLG, SYSLIN points to the object module defined by a SYSIN 
DD statement. You must supply the following statement: 

//LKED.SYSIN DD (xI data set name) 

SYSLIB points to the location of the FORTRAN library routines. 
In link mode, use these statements: 

//SYSLIB DD DSN=SYS1.VLNKMLIB,DISP=SHR 
// DD DSN=SYS1.VF0RTLIB,DISP=SHR 

In load mode, use this statement: 

//SYSLIB DD DSN=SYS1.VFORTLIB,DISP^SHR 

If you want to make the alternative mathematical library 
routines available, see "Alternative Mathematical Library 
Subroutines" on page 38. For information on choosing link mode 
or load mode, see "Selection of Load Mode or Link Mode" on 
page 44. 
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EXECUTING 


Mhen executing# the statements have the following functions * 

The EXEC statement for the go step named GO specifies that 
the load module created in the link-edit step is the program 
to be executed (PGM=x.LKED.SYSLMOD). 

The parameter COND indicates that the program is to be 
executed only if previous steps returned a code less than or 
equal to 4. 

The DD statements describe required data sets. DD statement 
FT05F001 indicates that the input data set is to be defined 
by a SYSIN DD statement# which you must supply. FT06F001 
defines a printer data set; FT07F001 defines a card punch 
data set. 

You must specify input to a program using a SYSIN DD statement 

as fellcVi's - 

//GO.SYSIN DD {X|data set name! 

For load mode# you need a STEPLIB statement that provides the 
execution-time modules needed for proper execution of the 
program. The statement looks like this: 

//STEPLIB DD DSN=SYS1.VFORTLIB,DISP=SHR 

For information on choosing link mode or load mode# see 
"Selection of Load Mode or Link Mode" on page 44. 


LOADING 


Although the example supplied above does not have a loader 
statement# some cataloged procedures# such as FORTVCG# do. 

Hhen loading# the statements have the following functions: 

The EXEC statement for the loader step is named GO# and 
specifies the loader as the program to be executed 
(PGM=LOADER). 

The DD statements describe required data sets. 

SYSLOUT describes printed output# such as a module map. 

The other data sets are the same as those used by the linkage 
editor and the load module. Note that a SYSLMOD DD statement is 
not specified; the loader places the load module directly into 
storage for execution, 

Nhen the loader is the firs*t step to be executed# as in FORTVL# 
you must define the object module in the following SYSLIN DD 
statement (not SYSIN): 

//GO.SYSLIN DD {xjdata set name! 

You must define input to the load module in a SYSIN DD statement 
coded as follows: 

//GO.SYSIN DD {X)data set name! 

SYSLIB points to the location of the FORTRAN library routines. 

In link mode# use these statements: 

//SYSLIB DD DSN=SY51.VLNKMLIB,DISP=SHR 
// DD DSN=SYS1.VFORTLIB#DISP=SHR 

In load mode# use these statements: 

//SYSLIB DD DSN=SYS1.VFORTLIB,DISP=SHR 
//STEPLIB DD DSN=5YS1.VFORTLIB,DISP=SHR 
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If you want to make the alternative mathematical library 
routines available* see "Alternative Mathematical Library 
Subroutines" on page 38. For information on choosing link mode 
or load mode* see "Selection of Load Mode or Link Mode" on 
page 44. 


| THE SEPARATION TOOL 


The VS FORTRAN separation tool separates the compiler's object 
output from a compile with the RENT option into reentrant and 
nonreentrant portions. This allows you to build shared modules 
with the reentrant portions. 

The separation tool uses the object output (object deck or text 
file) from the compiler as input. It generates a listing file 
indicating the activity that took place* and also generates two 
object output files. The first file (ddname=SYSUTl) contains 
the nonreentrant text files. The second file (ddname=SYSUT2) 
contains the reentrant CSECTs and the table generated by the 
separation tool to help locate these CSECTs. 

The separation tool is distributed with the VS FORTRAN Library 
in the form of two load modules* IFYVSFST and IFYVSFIO. Some of 
the ways to reinstall and execute the separation tool are 
described below. Note that DD statements or allocate statements 
are not given here but are available in VS FORTRAN Programming 
Guide or in PROCLIB. 

• One way to use the separation tool is to access it from 
SYS1.VFORTLIB. 

//A EXEC PGM=IFYVSFST * PARM= * RENTPART 1 
//STEPLIB DD DSN=SYS1.VFORTLIB*DISP=SHR 

• Another way is to link-edit the modules into one load module 
and insert this module into SYS1.LINKLIB. Note that the 
separation tool is not intended to run as an authorized 
program; it is intended only for use in program state. 

The link-edit control statements you need are* 

INCLUDE VFORTLIB(IFYVSFST) 

INCLUDE VFORTLIBCIFYVSFIO) 

ENTRY IFYVSFST 
NAME IFYVSFST(R) 

• Another way of accessing the separation tool is to put both 
modules into the link pack area (SYS1.LPALIB). Both modules 
are reentrant and reusable. 

• In the MVS/XA environment* IFYVSFST may be put into the 
extended link pack area* and IFYVSFIO may be put into the 
link pack area. 

As long as the modules of the separation tool are in 
SYS1.VFORTLIB* maintenance done with SMP or SMP/E is available 
immediately. If you choose to insert the separation tool in 
some other library or in the link pack area* then you must be 
sure the updated separation tool is also inserted in the 
appropriate place. 


REENTRANT I/O LIBRARY MODULES—TRANSITIONAL SUPPORT 

The previously supported facility for loading the reentrant I/O 
library modules has been replaced in Release 4.0 by more 
extensive loading of library modules during execution. In 
Release 4.0* an IFYVRENT module is installed in SYS1.VFORTLIB* 
and contains a version of these previous modules compatible with 
load modules created prior to Release 4.0. However* these 
modules contain no new Release 4.0 functions. After your load 
module contains any code compiled with Release 4.0 or anv 
Release 4.0 library modules* then all library modules linked 
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into that load module must be at the Release 4.0 level. The 
former IFYVRENT mechanism will then no longer be used for that 
load module. 

Load modules created with Release 1.0 or Release 1.1 are not 
compatible with the module IFYVRENT from Release 2.0 or later. 

If you have such load modules# they must be relink-edited using 
the Release 4.0 library. 

To make the reentrant compatibility module IFYVRENT available to 
all users at execution# do one of the followingt 

* In the procedures that compile# link# and execute VS FORTRAN 
programs# add a STEPLIB DD statement for SYS1.VFORTLIB to 
the GO step for loading IFYVRENT. This is a change from the 
former requirement for referring to SYS1.VRENTLIB. 

• You may choose to put the module IFYVRENT in the pageable 
link pack area by moving it to SYS1.LPALIB. In an MVS/XA 
system# this module will reside below 16 megabytes. 


| EXECMTXQMrTIME LOADING OF LIBRARY MODULES 

When you link-edit a program using the Release 4.0 library# you 
can choose to have all library modules (other than the 
mathematical routines) either link-edited into the load module 
with compiler-generated code# or to have many of them loaded 
dynamically at execution time. Execution-time loading has 
several advantages. It reduces auxiliary storage requirements 
for load modules# speeds link-editing# and# in an MVS/XA 
environment# allows some library routines to be placed in the 
extended link pack area. Note that this new feature replaces 
the previous technique used to load the reentrant library. 


| COMPOSITE MODULES 


If you choose the link-edit method# or link mode# no further 
loading is required at execution time. If you choose 
execution-time loading# or load mode# each module is loaded the 
first time it is used# unless it has been previously loaded. 
Because execution-time performance suffers if a large number of 
library modules are individually loaded# the modules to be 
loaded at execution time may be combined into composite load 
modules. 


There are three of these composite modules installed in VFORTLIB 
for an MVS/XA system and two for other systems* 


IFYVLBCM contains nonreentrant library modules# including the 
library common work area and the initialization 
module. 


IFYVRENA contains reentrant library modules that can reside 

above 16 megabytes in an MVS/XA system. Many library 
modules that previously resided in IFYVRENT (below 16 
megabytes) may now be placed in this module for 
virtual storage constraint relief. In non-XA systems# 
this module is not used. 

IFYVRENB contains reentrant library modules that must reside 
below 16 megabytes in an MVS/XA system. In non-XA 
systems# this module is not used. 

IFYVRENC includes all the loadable reentrant modules for 

systems other than MVS/XA. In an MVS/XA system# this 
module is not used. 


As part of its initialization procedure in load mode# the 
library loads the composite modules listed above. The only 
modules that need to be loaded separately after initialization 
are those that are not contained in the composite modules. At 
installation time (or at any time thereafter)# you may add or 
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delete library modules from the composite load modules to 
further tune your system. For example, if keyed access (VSAM 
KSDS) is not normally used at your installation, you may choose 
not to place the modules that perform these functions in the 
composite load modules. This reduces their size. You will then 
have to load the direct access and keyed access I/O modules 
individually if you ever need them. (These modules may reside 
in the link pack area so they don't need to be brought into your 
region, or they may be brought into your region from the library 
containing them.) 


| SELECTION OF LOAD NODE OR LINK MODE 

After installation of the VS FORTRAN library, you may update the 
installation's cataloged procedures (for example, FORTVCLG for 
compile, link-edit, and go), to specify the libraries needed for 
use in link mode. All procedures provided with the product are 
set up for load mode. The procedures for specifying libraries 
in load mode or link mode are described below. 


| Specifying Libraries in Load Node 

For operation in load mode, provide SYS1.VFORTLIB but not 
SYS1.VLNKMLIB to the linkage editor to use when including VS 
FORTRAN library modules. Specify only SYS1.VFORTLIB in the DD 
statement for SYSLIB in the linkage editor step: 

//SYSLIB DD DSN=SYS1.VFORTLIB,DISP=SHR 

To execute a program that has been link-edited in load mode, 
make VFORTLIB available for the execution step by performing one 
of the following steps. 

1. Concatenate SYS1.VFORTLIB to SYS1.LINKLIB in the system link 
list so that SYS1.VFORTLIB will be searched as part of the 
link library without JOBLIB or STEPLIB DD statements. The 
reentrant composite modules IFYVRENA (MVS/XA only), IFYVRENB 
(MVS/XA only), and IFYVRENC (non-XA only), as well as 
selected individual reentrant modules, may be placed in the 
link pack area (SYS1.LPALIB). The copy of the modules in 
the link pack area will be used without searching 

SYS1.VFORTLIB. (If maintenance affects any modules in the 
link pack area, the updated copies of the modules must be 
copied into the link pack area from SYS1.VFORTLIB.) 

2. Place the following JOBLIB DD statement in the JCL for the 
job which executes the VS FORTRAN program* 

//JOBLIB DD DSN=SYS1.VFORTLIB,DISP=SHR 

or place the following STEPLIB DD statement in the JCL for 
the step which executes the VS FORTRAN program* 

//STEPLIB DD DSN=SYS1.VFORTLIB,DISP=SHR 

This technique does not let you use reentrant modules that 
are in the link pack area, because step libraries and job 
libraries are searched before the link pack area. (Refer to 
QS/VS2 MVS Supervisor Services and Macro Instructions , or 
MVS/Extended Architecture Supervisor Services and Macro 
Instructions , in the discussion of program management.) 

3. If you want to use a step library or job library in addition 
to loading reentrant modules from the link pack area, you 
must do the following: 

a. After tailoring the composite modules, place the 

reentrant composite modules IFYVRENA (MVS/XA only), 
IFYVRENB (MVS/XA only), and IFYVRENC (non-XA only) in 
the link pack area (library SYS1.LPALIB). 
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b. Optionally, place any reentrant modules that are not in 
a composite module into the link pack area. 

c. Create a new library that contains all modules from 
SYS1.VFORTLIB minus the modules (either composite 
modules or individual modules) that have been placed in 
the link pack area. Make this library available as 
either a step library or as a job library for the 
execution of the VS FORTRAN program. 

If maintenance affects any of the modules in the link pack 
area or your new library, the updated modules must be copied 
from SYS1.VFORTLIB. 


| Specifying Libraries in Link Mode 

For operation in link mode, concatenate VLNKMLIB ahead of 
VFORTLIB for use by the linkage editor when it includes VS 
FORTRAN library modules. Specify both VLNKMLIB and VFORTLIB in 
the DD statement for SYSLIB in the linkage editor step* 

//SYSLIB DD DSN=SYS1.VLNKMLIB,DISP=SHR 
// DD DSN=SYS1.VFORTLIB,DISP=SHR 

A program which is link-edited in link mode does not require any 
VS FORTRAN libraries at execution time (although other load 
module libraries may be required for reentrant programs). 


| DECIDING WHAT TO INCLUDE IN COMPOSITE MODULES 

You may update the composite modules IFYVLBCM, IFYVRENA (for 
MVS/XA only), IFYVRENB (for MVS/XA only), and IFYVRENC (non-XA 
only) to include only the library routines commonly used at your 
installation. You should base your choice to include or not 
include a module in the composite module upon the following 
considerations * 

• Because IFYVLBCM contains the nonreentrant modules, it must 
be loaded into your region for each execution of a VS 
FORTRAN program. Including all possible nonreentrant 
modules may require the region size to be larger than would 
otherwise be necessary. 

• If IFYVRENA, IFYVRENB, and IFYVRENC are not in the LPA, then 
they must be loaded into your region. Including all 
possible reentrant modules in them may require the region 
size to be larger than would otherwise be necessary. 

• If IFYVRENA, IFYVRENB, and IFYVRENC are in the LPA, 
including a large number of the reentrant modules in the 
composite modules has no effect upon the region size. 
However, the larger IFYVRENA, IFYVRENB, and IFYVRENC do 
require additional virtual storage in the LPA. 

Each library module not in the applicable composite module is 
loaded from the VFORTLIB library when the module is first 
referenced at execution-time. However, these modules could be 
placed in a link pack area under their own module names, and 
then loaded individually. 


| BUILDING THE COMPOSITE MODULES 

The following tables list the library modules you can include in 
the various composite modules. The "Size" column lists 
approximate module sizes, in hexadecimal. The "Default Set" 
column indicates which modules are placed into the composite 
modules during installation. Except for those modules that must 
be in the composite modules, you can subsequently add or delete 
modules in this set to match the needs at your installation. 
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If a module performs a function used frequently at your 
installation/ you should consider including it in your composite 
module even if you are trying to limit the size of the composite 
module. 

Following each list of modules is information on building the 
composite modules. 


| Composite Nodule XFYVLBCN 
| REQUIRED NODULES 


Nodule 

Size 

Default 

Set 

Function 

IFYVLBCO 

12D0 

X 

Library common work area 

IFYVBLN$ 

34 

X 

Internal linkage routine 

IFYVCOM$ 

34 

X 

Internal linkage routine 

IFYVC0M2 

BCC 

X 

Initialization/termination 

IFYVCN0$ 

78 

X 

Internal linkage routine 

IFYVCNI$ 

78 

X 

Internal linkage routine 

IFYVCVT$ 

30C 

X 

Internal linkage routine 

IFYVDIO$ 

3A 

X 

Internal linkage routine 

IFYVEMG$ 

74 

X 

Internal linkage routine 

IFYVERE$ 

34 

X 

Internal linkage routine 

IFYVERS$ 

60 

X 

Internal linkage routine 

IFYVFNTH 

8EB 

X 

Program interrupt handler 

IFYVIIOS 

3A 

X 

Internal linkage routine 

IFYVKIOS 

3A 

X 

Internal linkage routine 

IFYVLOAD 

2B0 

X 

Loader 

IFYVLOC$ 

34 

X 

Internal linkage routine 

IFYVPARN 

2BC 

X 

Execution time parameters 

IFYVPOS$ 

34 

X 

Internal linkage routine 

IFYVSPIE 

134 

X 

Interrupt interceptor 

IFYVSTA$ 

10C 

X 

Internal linkage routine 

IFYVTRC$ 

34 

X 

Internal linkage routine 

IFYVVI0$ 

88 

X 

Internal linkage routine 

IFYUATBL 

varies 

X 

Unit assignment table 

IFYUOPT 

5B8 

X 

Error option table 

Total 

3C29+ 

23 
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OPTIONAL NODULES 


Module 

Note 

Size 

Default 

Set 

Function 

IFYDIOCP 


1B0 


Define file (LANGLVL 66) 

IFYDSPAP 

2 

51C 


Dimension calculator 

IFYIBCOP 

1 

7A4 


Pre-VS FORTRAN interface 

IFYLDFIP 

2 

420 


List-directed I/O 

IFYNAMEP 

2 

384 


Namelist I/O 

IFYSDUMQ 


2156 


SDUMP subroutine 

IFYVASYP 


ACO 


Asynchronous 1/0 

IFYVDBUP 


1058 


Debugging packet 

IFYVDUMQ 


6D4 


DUMP/PDUMP subroutine j 

IFYVIONP 


1026 


Namelist I/O 

IFYVLOCA 


593 


Statement number locator 

IFYVMOPP 


450 


Extended error handling 

IFYVPOSA 


2D9E 


Post ABEND processor 

irYV^uur 

3 

ouu 


Fre~ReleliSe 4.0 iruirfawe 

IFYVSPAP 


46C 


Dimension calculator 


Notes: 


1. The module IFYIBCOP is used when running object decks 
produced by FORTRAN compilers prior to VS FORTRAN. It is 
needed for formatted and unformatted I/O and for 
initialization from a main program. 

2. These modules are used for the specified functions that are 
performed from object decks produced by VS FORTRAN compilers 
prior to VS FORTRAN Release 4.0. 

3. The module IFYVSCOP is used when running object decks 
produced by the VS FORTRAN compiler from releases prior to 
Release 4. It is needed for formatted and unformatted I/O 
and for initialization from a main program or from a 
subroutine with character arguments. 


BUILDING THE COMPOSITE MODULE IFYVLBCM* The composite module 
IFYVLBCM is created in a linkage editor step as follows * 


//LKEDLBCM EXEC PGM=IEWL,PARM= *XREF,REUS * 

//SYSPRINT DD SYS0UT=A 

//SYSUT1 DD UNIT=SYSDA,SPACE=<CYL,C1,1)) 

//SYSLMOD DD DSN=SYS1.VFORTLIB,DISP=0LD 

//SYSLIB DD DSN=SYS1.VFORTLIB,DISP=SHR 

//SYSLIN DD x 

INCLUDE SYSLIBCIFYVLBCO) 

INCLUDE SYSLIBCIFYxxxxx) 


ORDER IFYVLBCO 
ENTRY IFYLBCOM 
NAME IFYVLBCM(R) 
/x 


The linkage editor step creates the load module IFYVLBCM in the 
library SYS1.VFORTLIB, and replaces a previous copy of the load 
module, if one exists. The inclusion of any of the optional 
modules in the composite module IFYVLBCM is controlled by the 
linkage editor INCLUDE statement, which refers to IFYxxxxx , 
where IFYxxxxx is to be replaced by the name of the module to be 
included. A separate INCLUDE statement is required for each 
optional module you decide to include. Except for the module 
IFYVLBCO, no INCLUDE statements should be provided for the 
modules listed above as "Required.” 
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| Composite Nodule XFYVRENC for NVS/SP only (non-XA) 
| REQUIRED NODULES 


Nodule 

Size 

Default 

set 

Function 

IFYVREN 

FC 

X 

Internal linkage module 

IFYVGMFM 

1A9 

X 

GETMAIN/FREEMAIN 

IFYVSIOS 

22F8 

X 

Sequential I/O services 

Total 

259D 

3 



OPTIONAL NODULES 


Nodule 

Size 

Default 

Set 

Function 

IFYDDCMP 

270 


Dynamic common 

IFYVASUB 

D1C 


Asynchronous I/O 

IFYVBLNT 

1EC 

X 

Implied DO in I/O 

IFYVCLOP 

230 

X 

CLOSE statement 

IFYVCOMH 

1502 

X 

Formatted I/O 

IFYVCONI 

2 DC 

X 

Input floating-pt conversion 

IFYVCONO 

754 

X 

Output floating-pt conversion 

IFYVCVTH 

114C 

X 

Data conversion 

IFYVEMGN 

F00 

X 

Error message generator 

IFYVERRE 

21C 

X 

Error summary 

IFYVDIOS 

1744 


Direct access I/O services 

IFYVIIOS 

27C 


Internal file services 

IFYVINQP 

964 


INQUIRE statement 

IFYVIOCP 

296 


BACKSPACE, REMIND, ENDFILE 

IFYVIOFP 

6A8 

X 

Formatted I/O 

IFYVIOLP 

11E8 

X 

List-directed I/O 

IFYVIOUP 

ACA 

X 

Unformatted I/O 

IFYVKIOS 

2A70 


Keyed access I/O services 

IFYVLINP 

234 


Link to reentrant CSECT 

IFYVMSKL 

467F 

X 

Message skeletons 

IFYVOPEP 

688 

X 

OPEN statement 

IFYVSTAE 

82C 


ABEND processor 

IFYVTEN 

2C0 

X 

Powers of ten table 

IFYVTRCH 

88C 

X 

Traceback generator 

IFYVVIOS 

19B4 


Nonkeyed VSAM I/O services 


BUILDING THE CONPOSITE NODULE XFYVRENC IN NVS/SP (NON-XA) * For 
use in a non-XA version of an NVS/SP system, the composite 
module IFYVRENC is created in a linkage editor step as follows* 

//L KEDRENC EXEC PGM=IENL,PARM=■XREF,RENT» 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DD UNIT=SYSDA,SPACE=CCYL,C1,1)) 

//SYSLNOD DD DSN=SYS1.VFORTLIB,DISP=OLD 

//SYSLIB DD DSN=SYS1.VFORTLIB,DISP=SHR 

//SYSLIN DD X 

INCLUDE SYSLIBCIFYVREN) 

INCLUDE SYSLIBCIFYxxxxx) 


ORDER IFYVREN 
ENTRY IFYVREN 
NAME IFYVRENC(R) 

/x 

The linkage editor step creates the load module IFYVRENC in 
library SYS1.VFORTLIB; any previous copy of the load module is 
replaced. The inclusion of any of the optional reentrant 
modules in the composite module IFYVRENC is controlled by the 
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linkage editor INCLUDE statement* which refers to IFYxxxxx * 
where IFYxxxxx is to be replaced by the name of the module to be 
included.A separate INCLUDE statement is required for each 
optional module you decide to include. Except for the module 
IFYVREN* no INCLUDE statements should be provided for the 
modules listed above as "Required." 

After the composite module IFYVRENC has been created* it may be 
placed in the pageable link pack area for shared use by all 
regions. If it is not placed in the link pack area* it is 
loaded from the library SYS1.VFORTLIB. 


| Composite Nodule ZFYVRENA (MVS/XA only) 
| REQUIRED NODULES 


nuuuid 

**4 

Default 

UC 4* 

iff* 4 #%»% 

IFYVAREN 

D8 

X 

Internal linkage module 

IFYV6MFM 

1A9 

X 

GETMAIN/FREEMAIN 

Total 

281 

2 



OPTIONAL NODULES 


Nodule 

Size 

Default 

Set Function 

IFYDDCMP 

270 

X 

Dynamic common 

IFYVBLNT 

1EC 

X 

Implied DO in I/O 

IFYVCLOP 

230 

X 

CLOSE statement 

IFYVCOMH 

1502 

X 

Formatted I/O 

IFYVCONI 

2 DC 

X 

Input floating-pt conversion 

IFYVCONO 

754 

X 

Output floating-pt conversion 

IFYVCVTH 

114C 

X 

Data conversion 

IFYVEMGN 

F00 

X 

Error message generator 

IFYVERRE 

21C 

X 

Error summary 

IFYVIIOS 

27C 

X 

Internal file services 

IFYVINQP 

964 

X 

INQUIRE statement 

IFYVIOCP 

296 

X 

BACKSPACE* REMIND* ENDFILE 

IFYVIOFP 

6A8 

X 

Formatted I/O 

IFYVIOLP 

11E8 

X 

List-directed I/O 

IFYVIOUP 

ACA 

X 

Unformatted I/O 

IFYVLINP 

234 

X 

Link to reentrant CSECT 

IFYVMSKL 

467F 

X 

Message skeletons 

IFYVOPEP 

688 

X 

OPEN statement 

IFYVSTAE 

82C 

X 

ABEND processor 

IFYVTEN 

2C0 

X 

Powers of ten table 

IFYVTRCH 

88C 

X 

Traceback generator 


BUILDING THE COMPOSITE NODULE IFYVRENA FOR MVS/XA* The 
composite module IFYVRENA is created for use in an MVS/XA system 
in a linkage editor step as follows* 
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EXEC PGM=IEWL,PARM= * XREF,RENT * 

DD SYSOUT=A 

DD UNIT=SYSDA,SPACE*(CYL,(!,!)) 

DD DSN=SYS1.VFORTLIB,DISP-OLD 
DD DSN=SYS1.VFORTLIB,DISP=SHR 
DD X 


//LKEDRENA 
//SYSPRINT 
//SYSUT1 
//SYSLMOD 
//SYSLIB 
//SYSLIN 
INCLUDE SYSLIBCIFYVAREN) 
INCLUDE SYSLIB(IFYxxxxx) 


ORDER IFYVAREN 
ENTRY IFYVAREN 
MODE AMODEC 31),RMQDECANY) 

NAME IFYVRENA(R) 

/x 

The linkage editor step creates the load module IFYVRENA in 
library SYS1.VFORTLIB; any previous copy of the load module is 
replaced. The module should have a residence mode of ANY so 
that it can reside above the 16-megabyte virtual storage line. 
The inclusion of any of the optional reentrant modules in the 
composite module IFYVRENA is controlled by the linkage editor 
INCLUDE statement, which refers to lEfx j QQ £ & , where IF YX M X X X is 
to be replaced by the name of the module to be included. A 
separate INCLUDE statement is required for each optional module 
you decide to include. Except for the module IFYVAREN, no 
INCLUDE statements should be provided for the modules listed 
above as "Required." 

After the composite module IFYVRENA has been created, it may be 
placed in the extended pageable link pack area (ELPA) for shared 
use by all regions. If it is not placed in the link pack area, 
it is loaded from the library SYS1.VFORTLIB. 


| Composite Module IFYVRENB for MVS/XA system 
| REQUIRED MODULES 


Module 

Size 

Default 

Set 

Function 

IFYVBREN 

FC 

X 

Internal linkage module 

IFYVSIOS 

22F8 

X 

Sequential I/O services 

Total 

23F4 

2 



OPTIONAL MODULES 


Module 

Default 
Size set 

Function 

IFYVASUB 

D1C 

Asynchronous I/O 

IFYVDIOS 

1744 

Direct access I/O services 

IFYVKIOS 

2A70 

Keyed access I/O services 

IFYVVIOS 

19B4 

Non-keyed VSAM I/O service 
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BUILDING THE COMPOSITE MODULE IFYVRENB IN MVS/XA« The composite 
module IFYVRENB is created for use in an MVS/XA system in a 
linkage editor step as follows< 


//LKEDRENB EXEC PGM=IEWL,PARM= *XREF,RENT * 

//SYSPRINT DD SYSOUT=A 

//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)) 

//SYSLMOD DD DSN=SYS1.VFORTLIB,DISP=0LD 

//SYSLIB DD DSN=SYS1.VFORTLIB,DISP=SHR 

//SYSLIN DD * 

INCLUDE SYSLIBCIFYVBREN) 

INCLUDE SYSLIBCIFYxxxxx) 


ORDER IFYVBREN 
ENTRY IFYVBREN 
MODE AMODEC 31),RM0DEC24) 

NAME IFYVRENB(R) 

The linkage editor step creates the load module IFYVRENB in 
library SYS1.VFORTLIB; any previous copy of the load module is 
replaced. The module must have a residence mode of 24 so that 
it resides below the 16-megabyte virtual storage line. The 
inclusion of any of the optional reentrant modules in the 
composite module IFYVRENB is controlled by the linkage editor 
INCLUDE statement, which refers to IFYxxxxx , where IFYxxxxx is 
to be replaced by the name of the module to be included. A 
separate INCLUDE statement is required for each optional module 
you decide to include. Except for the module IFYVBREN, no 
INCLUDE statements should be provided for the modules listed 
above as "Required." 

After the composite module IFYVRENB has been created, it may be 
placed in the pageable link pack area for shared use by all 
regions. If it is not placed in the link pack area, it is 
loaded from the library SYS1.VFORTLIB. 
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CHAPTER _9> CUSTOMIZATION UNDER V$i 


The following features# which can be customized under VSE# are 
discussed in this chaptert 

Alternative mathematical library subroutines 

Cataloged procedures 

Compiler and Library defaults 

Execution-time logical units 

Execution-time loading of library modules 


ALTERNATIVE MATHEMATICAL LIBRARY SUBROUTINES 

You may choose to replace the supplied standard VS FORTRAN 
routines with the alternative mathematical library subroutines# 
or you may insert the alternative routines into a local user 
library so they can be made available when needed by the 
individual user. 

The INSTALL job places both the standard and alternative 
mathematical library subroutines into your VF0RTL1B relocatable 
library. If you intend to use the alternatives# the standard 
routines must be deleted and the alternatives renamed using the 
MAINT program. The required statements ares 


DELETR IFYFDXPD 
DELETR IFYLCOS 
DELETR IFYLEXP 
DELETR IFYLSIN 
DELETR IFYFRXPR 
DELETR IFYSEXP 
DELETR IFYLTNCT 
RENAMR IFYWDXPD#IFYFDXPD 
RENAMR IFYWLCOS#IFYLCOS 
RENAMR IFYHLEXP,IFYLEXP 
RENAMR IFYWLSIN,IFYLSIN 
RENAMR IFYWRXPR,IFYFRXPR 
RENAMR IFYWSEXP,IFYSEXP 
RENAMR IFYWTNCT,IFYLTNCT 


If you do not want to use the alternative routines# you can 
delete them using the following statements* 


DELETR IFYHDXPD 
DELETR IFYWLCOS 
DELETR IFYHLEXP 
DELETR IFYWLSIN 
DELETR IFYWRXPR 
DELETR IFYWSEXP 
DELETR IFYWTNCT 


If you want to keep both the standard and the alternative 
mathematical subroutines# you can copy the alternative 
subroutines (those beginning with IFYW) to a private relocatable 
library. To make the alternative routines available# you need 
to rename them to the standard subroutine names# and use a 
LIBDEF statement at link-edit time to define the relocatable 
library you want to use. The LIBDEF statement should look like 
thist 
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LIBDEF RL SEARCH=xxxx 


where xxxx is the file name of the private relocatable library. 


CATALOGED PROCEDURES 


You may want to write and catalog procedures for users to 
compile# link# and execute FORTRAN jobs. To catalog a procedure 
in the procedure library# submit a CATALP statement specifying 
the procedure name. Rules for naming the procedures are given 
in VSE/Advanced Functions System Control Statements . 

The statements to be included in the procedure follow the CATALP 
statement; they can be job control or linkage editor control 
statements# or both. The end of the control statements to be 
cataloged must be indicated by an end-of-procedure delimiter# 
which is usually /+. 

Each procedure cataloged in the procedure library should have » 

unique identity. This identity is required if you want to 
modify the job stream at execution. Therefore# when cataloging# 
identify each control statement in columns 73 through 79 (blanks 
may be embedded). 

Additional information on writing and modifying VSE/Advanced 
Functions cataloged procedures can be found in VS FORTRAN 
Programming Guide . 


I COMPILER AND LIBRARY DEFAULTS 


| MODIFYING COMPILER DEFAULT OPTIONS 

The compiler default options provided by IFXOOPTS are described 
in Chapter 3, "The Installation Macros: VSFORTC and VSFORTL" on 
page 5. If you want to change the default options# you must 
code the VSFORTC macro with the desired new default options. 

Hhen coding# column 1 must be blank. VSFORTC may appear 
anywhere before column 72 but must precede the operands by at 
least one blank. The operands are separated by commas and may 
be continued on any number of cards as long as column 72 
contains a nonblank character and the data on the following card 
begins in column 16. You do not need to code all keyword 
parameters (PUNCH, SORLIST, STORMAP, and so forth). 

Assemble the macro and relink-edit the compiler. The following 
example must be coded and adjusted for your specific system 
configuration. 

The first job below assembles the VSFORTC macro and punches the 
deck to temporary space allocated on DASD. Then the job 
catalogs the new version of IFXOOPTS in the relocatable library# 
making it available for the relink-edit of the compiler as shown 
in the second job sample. 

If you will be compiling with VS FORTRAN in a batch environment 
and will not be using a SYSTERM data set# specify the NOTRMFLG 
and NOTERMINAL options to avoid messages about having no 
terminal "online." 
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The following table lists the default use of the FORTRAN 
reference numbers 0 through 8* which are established when you 
install the product. Units 9 through 99 may be added by 
reassembling the VSFORTL macro and replacing the unit assignment 
table module (IFYUATBL). See "Modifying Library Object-Time I/O 
Options" on page 54 for more information. 


FORTRAN 
Ref. No. 

Logical 

Unit 

DOS File 
Name 

Function 

(Primary) 

Device Type 

0 

SYS000 

IJSYS00 

Program 
data set 

Unit record 
Magnetic tape 
Direct access 

1 

SYS001 

IJSYS01 

Program 
data set 

Unit record 
Magnetic tape 
Direct access 

2 

SYS002 

IJSYS02 

Program 
data set 

Unit record 
Magnetic tape 
Direct access 

3 

SYS003 

IJSYS03 

Program 
data set 

Unit record 
Magnetic tape 
Direct access 

4 

SYS004 

IJSYS04 

Program 
data set 

Unit record 
Magnetic tape 
Direct access 

5 

SYSIPT 

or 

SYSIN 

IJSYSIP 

Input data set 
to load module 

Card reader 
Magnetic tape 
Direct access 

6 

SYSLST 

IJSYSLS 

Printed output 
data 

Printer 
Magnetic tape 
Direct access 

7 

SYSPCH 

IJSYSPH 

Punched output 
data 

Card punch 
Magnetic tape 
Direct access 

8 

thru 

99 

SYS005 

thru 

SYS096 

IJSYS05 

thru 

IJSYS96 

Program 
data set 

Unit record 
Magnetic tape 
Direct access 


EM e m g N z IIM .■■L QAg . yH3 .- QF Library mopules 

When you link-edit a program using the Release 4.0 library* you 
may choose to have all library modules (other than the 
mathematical routines) either link-edited into your phase with 
the compilei—generated code* or loaded dynamically at execution 
time. Execution-time loading has several advantages. It 
reduces auxiliary storage requirements for phases in the core 
image library and speeds link-editing. 
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| COMPOSITE MODULES 


If you choose the link-edit method, or link mode, no further 
loading is required at execution time. If you choose 
execution-time loading, or load mode, each module is loaded the 
first time it is used, unless it has been previously loaded. 
Because execution-time performance is not as good if a large 
number of library modules are individually loaded, the modules 
to be loaded at execution time may be combined into composite 
modules. There are two composite modules built during 
installation: 

IFYVLBCM contains nonreentrant library modules, including the 
library common work area and the initialization 
module. 

IFYVRENC contains the loadable reentrant modules. 

As part of its initialization procedure in load mode, the 
library loads the composite modules listed above. The only 
modules that must be loaded separately after initialization are 
those not contained in the composite modules. At installation 
time (or at any time thereafter), you may add or delete library 
modules from the composite load modules to further tune your 
system. For example, if direct access or keyed access is not 
normally used at your installation, you may choose not to place 
the modules that perform these functions in the composite 
modules. You could thus reduce the size of these modules. The 
direct access and keyed access I/O modules would then have to be 
loaded individually should they ever be needed. (These modules 
may reside in the shared virtual area so they don't need to be 
brought into your partition, or they may be brought into your 
partition from the library containing them.) 


| SELECTION OF LOAD MODE OR LINK MODE 

After installation of the VS FORTRAN library, you must update 
the operational procedures to specify the libraries needed for 
use in load mode or link mode. If you need to specify the 
libraries, do the following: 


| Specifying Libraries in Load Mode 

• For operation in load mode, provide VFORTLIB but not 
VLNKMLIB to the linkage editor for its use when it includes 
VS FORTRAN library modules. Make only the relocatable 
library VFORTLIB available for the linkage editor step. 

// DLBL VF0RTLI,'A5748F03.SYSRLB.VFORTLIB' 

// EXTENT SYSmmm,volser 

// ASSGN SYSmmm,cuu 

// LIBDEF RL,SEARCH=(VFORTLI),TEMP 

• To make the relocatable library available to all linkage 
editor steps, put the DLBL and EXTENT statements in the 
standard label job, make permanent assignments, and specify 
PERM on the LIBDEF command instead of TEMP. 

To execute a program that has been link-edited in load mode, 

make VFLODLIB available for the execution step. 

1. Use the following statements in the step that executes the 
VS FORTRAN program* 

// DLBL VFLODLI,'A5748F03.SYSCLB.VFLODLIB' 

// EXTENT SYSnnn,volser 

// ASSGN SYSnnn,cuu 

// LIBDEF CL,SEARCH 55 (VFLODLI),TEMP 

2. To make VFLODLIB available to all jobs, put the DLBL and 
EXTENT statements in the standard label area, make the 
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SYSnnn assignment permanent* and specify PERM on the LIBDEF 
command. 


Specifying Libraries in Link Mode 

• For operation in link mode* concatenate VLNKMLIB ahead of 
VFORTLIB for use by the linkage editor when it includes VS 
FORTRAN library modules. Make the relocatable libraries 
VLNKMLIB and VFORTLIB available for the linkage editor step: 

// DLBL VFLKMLI,'A5748F03.SYSRLB.VLNKMLIB' 

// EXTENT SYSnnn*volser 
// ASSGN SYSnnn* cuu 

// DLBL VFORTLI**A5748FQ3.SYSRLB.VFORTLIB* 

// EXTENT SYSmmm*volser 
// ASSGN SYSmmm*cuu 

// LIBDEF RL*SEARCH=CVFLKMLI,VFORTLI)*TEMP 

£ Alternatively* put the DLBL and EXTENT statements in the 

standard label area* make permanent assignments* and specify 
PERM on the LIBDEF command. This will make the relocatable 
libraries available to all linkage editor steps. 

• A program link-edited for execution in link mode requires no 
VS FORTRAN libraries at execution time. 


| DECIDING WHAT TO INCLUDE IN COMPOSITE MODULES 

Composite modules IFYVLBCM and IFYVRENC may be updated to 
include only the library routines commonly used at your 
installation. The choice to include or not to include a module 
in the composite module is based upon the following 
considerations: 

• Because IFYVLBCM contains the nonreentrant modules* it must 
be loaded into your partition for each execution of a VS 
FORTRAN program. Including all possible nonreentrant 
modules may require the partition size to be larger than 
would otherwise be necessary. 

• If IFYVRENC is not in the SVA* it must be loaded into your 
partition. Including all possible reentrant modules may 
require the partition size to be larger than would otherwise 
be necessary. 

• If IFYVRENC is in the SVA* including a large number of the 
reentrant modules in the composite module has no effect upon 
the partition size. However* the larger IFYVRENC does 
require additional virtual storage in the SVA. 

Each library module not in the applicable composite module is 
loaded from the VFLODLIB library when the module is first 
referenced at execution time. These modules could be placed in 
an SVA as separate modules under their own module names and 
loaded individually. 


| BUILDING THE COMPOSITE MODULES 

The following tables list the library modules you can include in 
the various composite modules. The "Size" column lists 
approximate module sizes* in hexadecimal. The "Default Set" 
column indicates which modules are placed into the composite 
modules during the installation process. Except for the modules 
that must be in the composite modules* you can subsequently add 
or delete modules in this set to match the needs at your 
installation. 

If a module performs a function used frequently at your 
installation* you should consider including it in your composite 
module even if you are trying to limit the size of the composite 
module. 
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Following each list of modules is information on building the 
composite modules. 


| Composite Nodule IFYVLBCM 
| REQUIRED MODULES 


Module 

Size 

Default 

Set 

Function 

IFYDLBCO 

12D0 

X 

Library common work area 

IFYVBLNS 

34 

X 

Internal linkage routine 

IFYVCOMS 

34 

X 

Internal linkage routine 

IFYDC0M2 

780 

X 

Initialization/termination 

IFYVCN0$ 

78 

X 

Internal linkage routine 

IFYVCNIS 

78 

X 

Internal linkage routine 

IFYVCVT$ 

30C 

X 

Internal linkage routine 

IFYDDI0$ 

3A 

X 

Internal linkage routine 

IFYVEMG$ 

74 

X 

Internal linkage routine 

IFYVERE$ 

34 

X 

Internal linkage routine 

IFYVERS$ 

60 

X 

Internal linkage routine 

IFYDFNTH 

8E4 

X 

Program interrupt handler 

IFYVII0$ 

3A 

X 

Internal linkage routine 

IFYDKI0$ 

3A 

X 

Internal linkage routine 

IFYDLOAD 

220 

X 

Loader 

IFYVLOCS 

34 

X 

Internal linkage routine 

IFYVPARM 

2BC 

X 

Execution time parameters 

IFYVP0S$ 

34 

X 

Internal linkage routine 

IFYDSPIE 

FF 

X 

Interrupt interceptor 

IFYVTRC$ 

34 

X 

Internal linkage routine 

IFYDVI0$ 

88 

X 

Internal linkage routine 

IFYUATBL 

varies 

X 

Unit assignment table 

IFYUOPT 

5B8 

X 

Error option table 

Total 

3605+ 

22 



OPTIONAL MODULES 


Module 

Note 

Size 

Default 

Set 

Function 

IFYDIOCP 


1B0 


Define file (LANGLVL 66) 

IFYDSPAP 

2 

51C 


Dimension calculator 

IFYIBCOP 

1 

7A4 


Pre-VS FORTRAN interface 

IFYLDFIP 

2 

420 


List-directed I/O 

IFYNAMEP 

2 

384 


Namelist I/O 

IFYOPSYP 


2156 

X 

VSE system services 

IFYSDUMQ 


AC0 


SDUMP subroutine 

IFYVDBUP 


1058 


Debugging packet 

IFYVDUMQ 


6D4 


DUMP/PDUMP subroutine 

IFYVIONP 


1026 


Namelist I/O 

IFYVLOCA 


593 


Statement number locator 

IFYVMOPP 


450 


Extended error handling 

IFYVPOSA 


2D9E 


Post ABEND processor 

IFYVSCOP 

3 

600 


Pre-Rel. 4 interface 

IFYVSPAP 


46C 


Dimension calculator 


Notes: 

1. Module IFYIBCOP is used when running object decks produced 
by FORTRAN compilers prior to VS FORTRAN. It is needed for 
formatted and unformatted I/O and for initialization from a 
main program. 

2. These modules are used for the specified functions that are 
performed from object decks produced by FORTRAN compilers 
prior to VS FORTRAN Release 4.0. 
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3. Module IFYVSCOP is used when running object decks produced 
by the VS FORTRAN compiler prior to Release 4.0. It is 
needed for formatted and unformatted I/O and for 
initialization from a main program or from a subroutine with 
character arguments. 

BUILDING THE COMPOSITE MODULE IFYVLBCM* Composite module 
IFYVLBCM is created in a linkage editor step as follows * 

// DLBL IJSYSRL,*A5748F03.SYSRLB.VFORTLIB* 

// EXTENT ,volser 
// ASSGN SYSRLB,cuu 

// DLBL VFLODLI,*A5748F03.SYSCLB.VFLODLIB* 

// EXTENT SYSnnn,volser 
// ASSGN SYSnnn,cuu 
// LIBDEF CL,T0=VFL0DLI,TEMP 
// OPTION CATAL 
ACTION MAP 
PHASE IFYVLBCM,X+0 
INCLUDE IFYDLBCO 
INCLUDE If-Yxxxxx 


ENTRY IFYLBCOM 
// EXEC LNKEDT 

The linkage editor step creates the phase IFYVLBCM in the core 
image library A5748F03.SYSCLB.VFLODLIB; any previous copy of the 
phase is replaced. The inclusion of any of the optional modules 
in composite module IFYVLBCM is controlled by the INCLUDE 
statement, which refers to IFYxxxxx , where IFYxxxxx is to be 
replaced by the name of the module that is to be included. A 
separate INCLUDE statement is required for each optional module 
that is to be in the composite module. Except for module 
IFYDLBCO, no INCLUDE statements should be provided for the 
modules listed above as "Required." 


Composite Module IFYVRENC 

REQUIRED MODULES 


Module 

Size 

Default 

Set 

Function 

IFYDREN 

FC 

X 

Internal linkage module 

IFYDGMFM 

1E5 

X 

GETMAIN/FREEMAIN 

IFYDSIOS 

1E52 

X 

Sequential I/O services 

Total 

2133 

3 
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OPTIONAL NODULES 


Module 

Size 

Default 

Set 

Function 

IFYVBLNT 

1EC 

X 

Implied DO in 1/0 

IFYVCLOP 

230 

X 

CLOSE statement 

IFYVCOMH 

1502 

X 

Formatted I/O 

IFYVCONI 

2DC 

X 

Input floating-pt conversion 

IFYVCONO 

754 

X 

Output floating-pt conversion 

IFYVCVTH 

114C 

X 

Data conversion 

IFYDDCMP 

270 


Dynamic common 

IFYVEMGN 

F00 

X 

Error message generator 

IFYVERRE 

21C 

X 

Error summary 

IFYDDIOS 

12B0 


Direct access 1/0 services 

IFYVIIOS 

27C 


Internal file services 

IFYVINQP 

964 


INQUIRE statement 

IFYVIOCP 

296 


BACKSPACE, REWIND, ENDFILE 

IFYVIOFP 

6A8 

X 

Formatted 1/0 

IFYVIOLP 

11E8 

X 

List-directed I/O 

IFYVIOUP 

ACA 

X 

Unformatted 1/0 

IFYDKIOS 

3190 


Keyed access I/O services 

IFYVMSKL 

467F 

X 

Message skeletons 

IFYVOPEP 

688 

X 

OPEN statement 

IFYVTEN 

2C0 

X 

Powers of ten table 

IFYVTRCH 

88C 

X 

Traceback generator 

IFYDVIOS 

1E9C 


Non-keyed VSAM I/O services 


BUILDING THE COMPOSITE MODULE IFYVRENC: The composite module 
IFYVRENC is created in a linkage editor step as follows: 

// DLBL IJSYSRL,*A5748F03.SYSRLB.VFORTLIB* 

// EXTENT ,volser 
// ASSGN SYSRLB,cuu 

// DLBL VFLODLI,'A5748F03.SYSCLB.VFLODLIB* 

// EXTENT SYSnnn,volser 
// ASSGN SYSnnn,cuu 
// LIBDEF CL,TO=VFLODLI,TEMP 
// OPTION CATAL 
ACTION MAP 

PHASE IFYVRENC,x+0,SVA 
INCLUDE IFYDREN 
INCLUDE IFYxxxxx 


ENTRY IFYDREN 
// EXEC LNKEDT 

The linkage editor step creates the phase IFYVRENC in the core 
image library A5748F03.SYSCLB.VFLODLIB; any previous copy of the 
phase is replaced. The inclusion of any of the optional 
reentrant modules in composite module IFYVRENC is controlled by 
the INCLUDE statement, which refers to IFYxxxxx , where IFYxxxxx 
is to be replaced by the name of the module that is to be 
included. A separate INCLUDE statement is required for each 
optional module that is to be in the composite module. Except 
for module IFYDREN, no INCLUDE statements should be provided for 
the modules listed above as "Required." 

After composite module IFYVRENC has been created, it may be 
placed in the shared virtual area for shared use by all 
partitions. If it is not placed in the shared virtual area, it 
is loaded from the core image library A5748F03.SYSCLB.VFLODLIB. 
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CHAPTER 10. CUSTOMIZATION UNDER VM 


The following features, which can be customized under VM, are 
discussed in this chapter: 

Alternative mathematical library subroutines 

The compiler as a discontiguous shared segment 

Extended precision operations 

The separation tool 

Execution-time loading of library modules 


ALTERNATIVE MATHEMATICAL LIBRARY SUBROUTINES 

You may choose to replace the supplied standard VS FORTRAN 
routines with the alternative mathematical library subroutines, 
or you may insert the alternative routines into a local user 
library so they can be made available when needed by the 
individual user. 

The alternative mathematical library subroutines are placed in 
VALTLIB by the installation process. 

To make the alternative mathematical library routines available 
to all users, create an exec which will issue the following CMS 
statement for use by the CMS LOAD command in load mode: 

GLOBAL TXTLIB VALTLIB VFORTLIB CMSLIB 

Or this statement for use in link mode: 

GLOBAL TXTLIB VALTLIB VLNKMLIB VFORTLIB CMSLIB 


I THE COMPILER AS A DISCONTIGUOUS SHARED SEGMENT 

You must complete the following steps before executing the 
installation EXEC (I5748F03) when installing the compiler as a 
shared segment: 

1. Allocate permanent space on a CP-owned DASD volume to 
contain the saved segment (256 pages). (Refer to VM/SP 
Planning Guide and Reference for information on the amount 
of disk space needed.) 

2. Define the segment to be saved by adding a NAMESYS macro to 
your installation's DMKSNT ASSEMBLE module (see VM/SP 
Planning Guide and Reference and VM/SP System Programmer's 
Guide ). Choose the load address, using the following 
guidelines: 

• The address must be greater than the largest virtual 
machine of any VS FORTRAN user. 

• The address should not be unnecessarily high; if it is, 
storage is wasted for unreferenced CP segment table 
entries. 

• The address must not allow the VS FORTRAN shared segment 
to overlap any other shared segment that may be used at 
the same time. 

The following example of the NAMESYS macro defines DSSVFORT. 

The sample numbers given illustrate a possible set of numbers 
and are not intended as the only location for a DCSS. 
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SAMPLE NAMESYS SYSNAME=DSSVFORT, 

SYSSIZE=1024K, 

SYSHRSG=(64,65,66,67,68,69,70,71, 
72,73,74,75,76,77,78,79), 
SYSPGCT=256, 

SYSPGNM=(1024-1279), 
VSYSADR=IGNORE, 

SYSV0L=VM7RES, 

SYSSTRT=(049,1) 


See Note A 

See Note B 

See Note C 
See Note D 


Note A. Must be adjusted to your installation requirements. 

Note B. The page numbers to be saved. To calculate the page 

numbers, divide the load address by 4K and convert the 
result to decimal. 

Note C. The serial number of the storage volume allocated. 

Note D* The starting cylinder and page address for the saved 
segment. 

The above example will require a hexadecimal origin address of 

400000. 

PROCEDURE 

1. Assemble the new system name table, DMKSNT, by using the 
GENERATE EXEC procedure as described in VM/SP Planning Guide 
and Reference . 

2. Redefine a virtual storage size that exceeds the entire 
shared segment; that is, if the DCSS starting address is 
400000 hexadecimal, a virtual storage of 6 megabytes is 
needed. 

3. Refer to the VS FORTRAN Program Directory for updated 
information and specific space data needed for installation 
of VS FORTRAN. 

4. Reply YES to the prompt asking if you are installing the VS 
FORTRAN compiler as a discontiguous shared segment, and be 
prepared to give the starting address. Invoke the 
installation EXEC, I5748F03, from E class privilege in order 
to execute the SAVESYS command. 


i MSjms^Msm m^sMmissss 

If the hardware you are using with VS FORTRAN does not support 
one or more extended precision arithmetic operations (add, 
subtract, multiply, or divide), you must include CMSLIB in the 
GLOBAL TXTLIB statement in order to make the required simulation 
modules available (IEAXPSIM, IEAXPDXR, IEAXPALL). Failure to do 
this will cause an abend during execution. 

In load mode, the GLOBAL statements you'll need at execution 
are< 

GLOBAL TXTLIB VFORTLIB CMSLIB 
GLOBAL LOADLIB VFLODLIB 


In link mode, the statements are* 

GLOBAL TXTLIB VLNKMLIB VFORTLIB CMSLIB 
GLOBAL LOADLIB 

The GLOBAL command for a LOADLIB is not required for operation 
in link mode unless you are using routines you have link-edited 
into a loadlib. 
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The VS FORTRAN separation tool separates the compiler's object 
output from a compile with the RENT option into reentrant and 
nonreentrant portions. This allows you to build shared modules 
with the reentrant portions. 

The separation tool uses the object output (object deck or text 
file) from the compiler as input. It generates a listing file 
indicating the activity that took place, and also generates two 
object output files. The first file (ddname=SYSUTl) contains 
the nonreentrant CSECTs. The second file (ddname=SYSUT2) 
contains the reentrant CSECTs, and the table generated by the 
separation tool to help locate them. 

The separation tool is distributed with the VS FORTRAN Library 
in the form of two text files, IFYVSFST and IFYVSFIO. Some of 
the ways to reinstall and execute the separation tool are 
described below. (Note that FILEDEF statements are not given 
here but are available in VS FORTRAN Programming Guide .) 

• One method of accessing the separation tool is from 
VFORTLIB. Here we are using "rentpart" as the reentrant 
module name. 

GLOBAL TXTLIB VFORTLIB 
LOAD IFYVSFST rentpart 
START X rentpart 

• Another method is to designate only IFYVSFST as a module, 
and to load* IFYVSFIO at execution. 

GLOBAL TXTLIB VFORTLIB 
LOAD IFYVSFST (CLEAR 
GENMOD IFYVSFST 

then 

IFYVSFST rentpart 

• Another method is to create one module containing both 
IFYVSFST and IFYVSFIO, and to load this module at execution. 
This method improves startup performance, but requires 
additional disk space to contain the module. 

GLOBAL TXTLIB VFORTLIB 
LOAD IFYVSFST IFYVSFIO (CLEAR 
GENMOD IFYVSFST 

then 

IFYVSFST rentpart 

• Another method is to create a load module made up of 
IFYVSFST and IFYVSFIO. This load module should occupy a 
LOADLIB. You can then invoke the separation tool with the 
OSRUN program. 

1. Get IFYVSFST and IFYVSFIO from VFORTLIB TXTLIB 
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CP SPOOL PUNCH TO X 

PUNCH VFORTLIB TXTLIB X (MEMBER IFYVSFST 
PUNCH VFORTLIB TXTLIB X (MEMBER IFYVSFIO 
READ X 


(to remove leftover records 


READ X 

XEDIT IFYVSFST TEXT A 

BOTTOM 

UP 

DELETE 2 
FILE 

XEDIT IFYVSFIO TEXT A 

BOTTOM 

UP 

DELETE 2 
FILE 

2. Make one text file 


from VFORTLIB TXTLIB) 

(to remove leftover records 
from VFORTLIB TXTLIB) 


COPYFILE IFYVSFIO TEXT A IFYVSFST TEXT A (APPEND 

3. Link-edit the text file into VSFSTLIB LOADLIB 
LKED IFYVSFST (NAME IFYVSFST LIBE VSFSTLIB 


4. Run the separation tool, remembering your FILEDEF 
statements. 

GLOBAL LOADLIB VSFSTLIB 
OSRUN IFYVSFST PARM= *RENTPART* 


I EXECUTION-TIME LOADING OF LIBRARY MODULES 

When you create an executable program using the Release 4.0 
library, you may choose to have all library modules (other than 
the mathematical routines) either made a part of your executable 
program along with the compiler-generated code, or loaded 
dynamically at execution time. Execution-time loading has 
several advantages. It reduces auxiliary storage requirements 
for your executable programs and speeds link-editing. 


| COMPOSITE MODULES 


If you choose to have all the library modules included as part 
of your executable program (link mode), no further loading is 
required at execution time. If you choose execution-time 
loading (load mode), each module is loaded the first time it is 
used, unless it has been previously loaded. Because 
execution-time performance is not as good if a large number of 
library modules are individually loaded, the modules to be 
loaded at execution time may be combined into composite modules. 
The two composite modules are installed in VFLODLIB. 

IFYVLBCM contains nonreentrant library modules, including the 
library common work area and the initialization 
module. 

IFYVRENC contains all the loadable reentrant modules. One or 
more copies of this composite module may be placed in 
a discontiguous shared segment. 

As part of its initialization procedure in load mode, the 
library loads the composite modules listed above. The only 
modules that need to be loaded separately after initialization 
are those not contained in the composite modules. At 
installation time (or at any time thereafter), you may add or 
delete library modules from the composite load modules to 
further tune your system. For example, if direct access or 
keyed access is not normally used at your installation, you may 
choose not to place the modules that perform these functions in 
the composite modules. You could thus reduce the size of these 
modules. The direct access and keyed access I/O modules would 
then have to be loaded individually should they ever be needed. 


64 VS FORTRAN Compiler and Library Installation and Customization 




| SELECTION OF LOAD MODE OR LINK MODE 

After installation of the VS FORTRAN library* you must update 
the operational procedures to specify the libraries needed for 
use in load mode or link mode. To select the mode you want* you 
can provide an EXEC to issue the appropriate global commands for 
either load mode or link mode* as described below: 


| Specifying Libraries in Load Mode 


Specify the VFORTLIB TXTLIB but not the VLNKMLIB TXTLIB in the 
CMS GLOBAL command for use by the LOAD command: 


GLOBAL TXTLIB VFORTLIB CMSLIB 


Library text files* that is* CMS files with a name beginning 
with IFY and with a file type of TEXT* must not be on any 
accessed disk during the execution of the LOAD command unless 
the option NOAUTO is specified. (During installation of the VS 
FORTRAN library* the library text files should be placed on a 
different minidisk than the text libraries in order to eliminate 
the problems that would occur because of the omission of the 
NOAUTO option on the LOAD command.) 


Specify the VFORTLIB TXTLIB in a FILEDEF command for use by the 
LKED command: 


FILEDEF SYSLIB DISK VFORTLIB TXTLIB fm 

To execute a program that has been created for execution in load 
mode* make VFLODLIB available for the execution step. Use the 
following command: 

GLOBAL LOADLIB VFLODLIB 


| Specifying Libraries in Link Mode 

For operation in link mode* concatenate VLNKMLIB ahead of 
VFORTLIB for use by the LOAD command in CMS when it includes VS 
FORTRAN library modules. 

Specify the TXTLIBs VLNKMLIB and VFORTLIB in the CMS GLOBAL 
command for use by the LOAD command: 

GLOBAL TXTLIB VLNKMLIB VFORTLIB CMSLIB 

Library text files* that is* CMS files with a name beginning 
with IFY and with a file type of TEXT* must not be on any 
accessed disk during the execution of the LOAD command unless 
the option NOAUTO is specified. (During installation of the VS 
FORTRAN library, the library text files should be placed on a 
different minidisk than the text libraries in order to eliminate 
the problems that would occur because of the omission of the 
NOAUTO option on the LOAD command.) 

Do not use the LKED command to create an executable program that 
operates in link mode. 

A program created for execution in link mode does not require 
any VS FORTRAN libraries at execution time. 

Issue the following GLOBAL command to be sure that VFLODLIB 
LOADLIB is not available: 

GLOBAL LOADLIB 
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| DECIDING WHAT TO INCLUDE IN COMPOSITE MODULES 

Composite modules IFYVLBCM and IFYVRENC may be updated to 
include only the library routines commonly used at your 
installation. The choice to include or not to include a module 
in the composite module is based upon the following 
considerations: 

• Because IFYVLBCM contains the nonreentrant modules, it must 
be loaded into your virtual machine for each execution of a 
VS FORTRAN program. Including all possible nonreentrant 
modules may cause the storage required for the program to be 
larger than necessary. 

• If IFYVRENC is not in the DCSS, it must be loaded into your 
virtual machine. Including all possible reentrant modules 
may cause the storage required for the program to be larger 
than necessary. 

• If IFYVRENC is in the DCSS, including a large number of the 
reentrant modules in the composite module has no effect upon 
the storage required for the program. However, the larger 
IFYVRENC does require additional virtual storage for the 
DCSS. 

Each library module not in the applicable composite module is 
loaded from the VFLODLIB library when the module is first 
referenced at execution time. The reentrant modules, that is, 
those that can be placed in the composite module IFYVRENC, could 
also be placed in a DCSS as separate modules under their own 
module names, and loaded individually. 


| BUILDING THE COMPOSITE MODULES 

The following tables list the library modules you can include in 
the various composite modules. The "Size" column lists 
approximate module sizes in hexadecimal. The "Default Set" 
column indicates which modules are placed into the composite 
modules during the installation process. Except for the modules 
that must be in the composite modules, you can subsequently adcl 
or delete modules in this set to match the needs at your 
installation. 

If a module performs a function used frequently at your 
installation, you should consider including it in your composite 
module even if you are trying to limit the size of the composite 
module. 

Following each list of modules is information on building the 
composite modules. 
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Composite Nodule IFYVLBCN 


REQUIRED NODULES 


Nodule 

Size 

Default 

Set 

Function 

IFYCLBCO 

12D0 

X 

Library common work area 

IFYVBLN$ 

34 

X 

Internal linkage routine 

IFYVCMSS 

3B0 

X 

CMS interface 

IFYVC0M$ 

34 

X 

Internal linkage routine 

IFYVC0M2 

BCC 

X 

Initialization/termination 

IFYVCN0$ 

78 

X 

Internal linkage routine 

IFYVCNI$ 

78 

X 

Internal linkage routine 

IFYVCVT$ 

30C 

X 

Internal linkage routine 

IFYVDI0$ 

3A 

X 

Internal linkage routine 

IFYVEMG$ 

74 

X 

Internal linkage routine 

IFYVERE$ 

34 

X 

Internal linkage routine 

IFYVERS$ 

60 

X 

Internal linkage routine 

IFYVFNTH 

8EB 

X 

Program interrupt handler 

IFYVII0$ 

3A 

X 

Internal linkage routine 

IFYVKI0$ 

3A 

X 

Internal linkage routine 

IFYVLOAD 

2B0 

X 

Loader 

IFYVL0C$ 

34 

X 

Internal linkage routine 

IFYVPARM 

2BC 

X 

Execution time parameters 

IFYVP0S$ 

34 

X 

Internal linkage routine 

IFYVSPIE 

134 

X 

Interrupt interceptor 

IFYVSTA$ 

10C 

X 

Internal linkage routine 

IFYVTRCS 

34 

X 

Internal linkage routine 

IFYCVI0$ 

88 

X 

Internal linkage routine 

IFYUATBL 

varies 

X 

Unit assignment table 

IFYUOPT 

5B8 

X 

Error option table 

Total 

3FD9+ 

24 



OPTIONAL NODULES 


Nodule 

Note 

Size 

Default 

Set 

Function 

IFYCRNAM 

4 



DCSS name list 

IFYDIOCP 


1B0 


Define file (LANGLVL 66) 

IFYDSPAP 

2 

51C 


Dimension calculator 

IFYIBCOP 

1 

7A4 


Pre-VS FORTRAN interface 

IFYLDFIP 

2 

420 


List-directed I/O 

IFYNAMEP 

2 

384 


Namelist I/O 

IFYSDUMQ 


2156 


SDUMP subroutine 

IFYVDBUP 


1058 


Debugging packet 

IFYVDUMQ 


6D4 


DUMP/PDUMP subroutine 

IFYVIONP 


1026 


Namelist I/O 

IFYVLOCA 


593 


Statement number locator 

IFYVMOPP 


450 


Extended error handling 

IFYVPOSA 


2D9E 


Post ABEND processor 

IFYVSCOP 

3 

600 


Pre-Rel. 4 interface 

IFYVSPAP 


46C 


Dimension calculator 


Notes: 

1. Nodule IFYIBCOP is used when running object decks produced 
by FORTRAN compilers prior to VS FORTRAN. It is needed for 
formatted and unformatted I/O and for initialization from a 
main program. 

2. These modules are used for the specified functions that are 
performed from object decks produced by FORTRAN compilers 
prior to VS FORTRAN Release 4.0. 
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3. Module IFYVSCOP is used when running object decks produced 
by the VS FORTRAN compiler from prior to Release 4.0. It is 
needed for formatted and unformatted I/O and for 
initialization from a main program or from a subroutine with 
characters arguments. 

4. If you have placed IFYVRENC in a shared segment, you must 
assemble module IFYCRNAM by coding a VSFCRNAM macro 
instruction, described in item 4 under "IFYVRENC as a 
Discontiguous Shared Segment" on page 70. The macro 
instruction specifies the names of your shared segments that 
have copies of the reentrant composite module IFYVRENC. 

After assembling module IFYCRNAM, you must incorporate it 
into composite module IFYVLBCM, as described in "Building 
the composite module IFYVLBCM." If module IFYCRNAM is not in 
the composite module, only the shared segment name IFYVRENC 
will be accessed. 

BUILDING THE COMPOSITE MODULE IFYVLBCM: Composite module 
IFYVLBCM is built using the following commands: 

FILEDEF SYSLIB DISK VFORTLIB TXTLIB fm 
LKED LKEDLBCM (NOTERM XREF LlBE VFLODLIB 

The LKED command refers to a file whose file name is LKEDLBCM 
and whose file type is TEXT. You must create this TEXT file 
yourself in the following format. All these cards contain 
linkage editor control statements, so column 1 must be blank. 

INCLUDE SYSLIB(IFYCLBCO) 

INCLUDE SYSLIBCIFYxxxxx) 


ORDER IFYCLBCO 
ENTRY IFYLBCOM 
NAME IFYVLBCM(R) 

The LKED command creates the load module IFYVLBCM in the LOADLIB 
called VFLODLIB; a previous copy of the load module, if any, is 
replaced. The inclusion of any of the optional modules in the 
composite module IFYVLBCM is controlled by the linkage editor 
INCLUDE statement, which refers to IFYxxxxx , where IFYxxxxx is 
to be replaced by the name of the module to be included. A 
separate INCLUDE statement is required for each optional module 
that is to be in the composite module. Except for the module 
IFYCLBCO, no INCLUDE statements should be provided for the 
modules listed above as "Required." 


| Composite Module IFYVRENC 
| REQUIRED MODULES 


Module 

Size 

Default 

Set 

Function 

IFYCREN 

FC 

X 

Internal linkage module 

IFYVGMFM 

1A9 

X 

GETMAIN/FREEMAIN 

IFYVSIOS 

22F8 

X 

Sequential I/O services 

Total 

259D 

3 
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OPTIONAL NODULES 


Module 

Size 

Default 

Set Function 

IFYVBLNT 

1EC 

X 

Implied DO in I/O 

IFYVCLOP 

230 

X 

CLOSE statement 

IFYVCOMH 

1502 

X 

Formatted I/O 

IFYVCONI 

2DC 

X 

Input floating-pt conversion 

IFYVCONO 

754 

X 

Output floating-pt conversion 

IFYVCVTH 

114C 

X 

Data conversion 

IFYDDCMP 

270 


Dynamic common 

IFYVEMGN 

F00 

X 

Error message generator 

IFYVERRE 

21C 

X 

Error summary 

IFYVDIOS 

1744 


Direct access I/O services 

IFYVIIOS 

27C 


Internal file services 

IFYVINQP 

964 


INQUIRE statement 

IFYVIOCP 

296 


BACKSPACE, REWIND, ENDFILE 

IFYVIGFP 

< 

y 

Formatted I/O 

IFYVIOLP 

11E8 

X 

List-directed I/O 

IFYVIOUP 

ACA 

X 

Unformatted I/O 

IFYVKIOS 

2A70 


Keyed access I/O services 

IFYVLINP 

234 


Link to reentrant CSECT 

IFYVMSKL 

467F 

X 

Message skeletons 

IFYVOPEP 

688 

X 

OPEN statement 

IFYVSTAE 

82C 


ABEND processor 

IFYVTEN 

2C0 

X 

Powers of ten table 

IFYVTRCH 

88C 

X 

Traceback generator 

IFYCVIOS 

1C04 


Nonkeyed VSAM I/O services 


BUILDING THE COMPOSITE NODULE IFYVRENC: Composite module 
IFYVRENC may be built and placed into a LOADLIB using the 
following commands: 

FILEDEF SYSLIB DISK VFORTLIB TXTLIB A 
LKED LKEDRENC (NOTERM XREF LIBE VFLODLIB 

The LKED command refers to a file whose file name is LKEDRENC 
and whose file type is TEXT. This TEXT file must have the 
following format: 

INCLUDE SYSLIB(IFYCREN) 

INCLUDE SYSLIB(IFYxxxxx) 


ORDER IFYCREN 
ENTRY IFYCREN 
NAME IFYVRENC(R) 

The LKED command creates the load module IFYVRENC in the LOADLIB 
called VFLODLIB; any previous copy of the load module is 
replaced. The inclusion of any of the optional reentrant 
modules in composite module IFYVRENC is controlled by the 
linkage editor INCLUDE statement, which refers to IFYxxxxx , 
where IFYxxxxx is to be replaced by the name of the module to be 
included. A separate INCLUDE statement is required for each 
optional module that is to be in the composite module. Except 
for the module IFYCREN, no INCLUDE statements should be provided 
for the modules listed above as "Required." 
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| ZFYVRENC AS A DISCONTIGUOUS SHARED SEGMENT 

Composite module IFYVRENC may be built and placed into a 
discontiguous shared segment. The virtual storage address 
selected for the DCSS must be greater than the virtual machine 
size of anyone who accesses it. In order to accommodate 
different virtual machine sizes/ a facility is available to save 
multiple copies of composite module IFYVRENC/ each with a 
different name and virtual storage address. 

To install IFYVRENC as a DCSS/ take the following steps: 

1. Your VM/SP systems programmer must update the system name 
table (DMKSNT). 

To update DMKSNT/ an additional NAMESYS macro instruction 
must be included in the DMKSNT ASSEMBLE file. This macro 
instruction defines the DCSS that will contain the composite 
module. If more than one DCSS is to be built to hold copies 
of the composite module IFYVRENC at different addresses/ 
there must be a NAMESYS macro instruction defining each 
DCSS. For more information/ refer to VM/SP System 
Programmers Guide . 

The following example of the NAMESYS macro in DMKSNT 
ASSEMBLE defines a sample DCSS called "FTNLIB40". The 
sample numbers given illustrate a possible set of numbers 
and are not intended as the only location for a DCSS. 

LIBRTNS NAMESYS SYSNAME=FTNLIB40, 

SYSSIZE=64K, 

SYSHRSG=(64), 

SYSPGCT=16, 

SYSPGNM=(1024-1039) / 

VSYSADR=IGNORE/ 

SYSVOL=VMSRES, 

SYSSTRT=(072/1) 

2. Install VS FORTRAN as usual. 

3. Place IFYVRENC in the shared segment. 

A DCSS for the composite module is built with the following 
commands. In order to issue the SAVESYS command shown 
below/ you must be a class E user. 

CP DEFINE STORAGE mach-size 
CP IPL CMS 


GLOBAL TXTLIB VFORTLIB 

LOAD IFYCREN (NOAUTO CLEAR ORIGIN seg-addr 
INCLUDE IFYxxxxx (SAME 


CP SAVESYS sys-name 

ERASE sys-name MAP A 

RENAME LOAD MAP A sys-name = = 

where 

mach-size specifies a virtual machine size at least as large 
as the address at which the shared segment resides 
(seg-addr) plus the length of the composite 
module. 

seg-addr specifies the virtual storage address at which the 
shared segment is to reside/ as defined in the 
NAMESYS macro instruction for the system name 
table. 
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sys-name specifies the name of the shared segment, as 

defined in the NAMESYS macro instruction for the 
system name table and in the VSFCRNAM macro 
instruction for assembling the module IFYCRNAM. 

The SAVESYS command saves the composite module as a DCSS 
using the specified name; any previous copy of this DCSS is 
replaced. The inclusion of any of the optional reentrant 
modules in composite module IFYVRENC is controlled by the 
CMS INCLUDE command, which refers to IFYxxxxx , where 
IFYxxxxx is to be replaced by the name of the module to be 
included. No INCLUDE command should be provided for the 
modules listed as "Required" in the table above. 

4. Use VSFCRNAM to assemble the IFYCRNAM text deck. 

The VSFCRNAM macro builds the CSECT IFYCRNAM, which supplies 
the shared segment names that will be available and 
initialized to hold the module IFYVRENC. None of the names 
supplied can be prefixed by the letters IFY. (However, 
IFYVRENC can be used as a valid shared segment name.) 

When coding the macro instruction, column 1 must be blank. 
VSFCRNAM may appear anywhere before column 72 but must 
precede the operands by at least one blank. The operands 
may be continued on any number of cards as long as column 72 
contains a nonblank character and the data on the following 
card begins in column 16. 

Place your VSFCRNAM macro instruction in a file whose file 
name is IFYCRNAM, and whose file type is ASSEMBLE. This 
file must have the following formats 

VSFCRNAM SYSNAME=(namel,name2,...) 

END 

where namel, name2, and so on are the names of one or more 
shared segments that contain the IFYVRENC composite module. 
The names must be listed in increasing order of their 
virtual storage addresses. No name beginning with "IFY" 
should be listed. 

Assemble the module IFYCRNAM as followss 

GLOBAL MACLIB VFORTMAC 
ASSEMBLE IFYCRNAM 

5. Insert the IFYCRNAM text deck in VFORTLIB TXTLIB. 

The TEXT file that results from the assembly of the DCSS 
name list must be placed in the VFORTLIB TXTLIB as follows: 

TXTLIB DEL VFORTLIB IFYCRNAM 
TXTLIB ADD VFORTLIB IFYCRNAM 

6. Update composite module IFYVLBCM. 

Finally, the DCSS name list module, IFYCRNAM, must be placed 
in composite module IFYVLBCM. This composite module must be 
built as described above. Place the following linkage 
editor INCLUDE statement in the TEXT file LKEDLBCM: 

INCLUDE SYSLIBCIFYCRNAM) 
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| Locating a Usable Copy o? the Composite Module 

At the initialization of a VS FORTRAN program in load mode, the 
following search order is used to locate a usable copy of 
composite module IFYVRENC* 

1. If the DCSS name list module, IFYCRNAM, is part of composite 
module IFYVLBCM, a saved segment is sought, using the names 
in the DCSS name list in the order that they are listed. 

The first such segment that does not overlap your virtual 
machine size is used as the composite module IFYVRENC. 

2. If there is a DCSS with a name of "IFYVRENC" that does not 
overlap your virtual machine, it is used as the composite 
module IFYVRENC. 

3. Finally, the module with a name of "IFYVRENC" is loaded from 
the LOADLIB made available in the GLOBAL LOADLIB command. 
(This LOADLIB should be VFLODLIB.) This module is used as 
composite module IFYVRENC. 
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The VS FORTRAN Compiler and Library is classified as a licensed 
program (LP) with S G program services. S G program services 
provide corrective and preventive service for product defects 
and a support structure for product problem resolution 
consisting of the following facilities* 

• Central Service* including the IBM Support Center 

• Local program support available for a monthly charge under 
an agreement for IBM licensed programs 

For details of these facilities and a list of all the products 
supported, refer to F* 9,1 d. Ena*n<?9riPSLIr^ar£mtng_i>,£ s ±em s 
General Information . 

Problem resolution and defect correction are handled as follows* 
If consulting V S . F0R T RA JQIgmp_il_ er .. e . nd , Li . b r. a .ry.. Dia g nos i s _G u j.d e 
confirms that a problem still exists, use the manual as a guide 
in reporting the problem to the IBM Support Center. There it 
will either be resolved, or accepted as an authorized 
programming analysis report (APAR) describing a probable product 
defect. An APAR is resolved by Central Service with either an 
explanation or a new corrective service program temporary fix 
(PTF) for the defect. PTFs consist of a replacement text module 
that is installed in the product to correct a defect. 

Collections of new PTFs for products are provided to all 
customers as preventive service program update tapes (PUTs). 
Problem resolution and defect correction assistance are 
available through Marketing Product Support. 
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APPENDIX B« COMPILER AND LIBRARY MODULES 


The first list below names all compiler modules , regardless of 
system type or variable installation conditions. The subsequent 
lists name modules for particular systems or functions. The 
sizes of the modules can be found in VS FORTRAN Language and 
library Reference . 


COMPILER MODULES 


Module 

Module 

Module 

Module 

Name 

Name 

Name 

Name 

IFXOABNT 

IFX1CONV 

IFX1PARM 

IFX3VPBZ 

IFXOCMS 

IFX1C0NI 

IFX1PRNS 

IFX3VPFP 

IFXOCNTL 

IFX1CPLX 

IFX1PR0G 

IFX3VPFT 

IFXODCTL 

IFX1CSST 

IFX1PTEX 

IFX3VPGK 

IFXODSYI 

IFX1DATA 

IFX1P1ER 

IFX3VPLP 

IFXODTTM 

IFX1DBAT 

IFX1RELS 

IFX3VPPR 

IFXOEMSG 

IFX1DBUG 

IFX1RPLC 

IFX3VQBM 

IFXOESKO 

IFX1DEFF 

IFX1RTRN 

IFX3VQBY 

IFX0ESK1 

IFX1DICP 

IFX1SAVE 

IFX3VQBN 

IFX0ESK2 

IFX1DIMN 

IFX1STFC 

IFX3VQBS 

IFX0ESK3 

IFX1D0D0 

IFX1STOR 

IFX3VQB& 

IFX0ESK4 

IFX1ELSF 

IFX1STPS 

IFX3VQCA 

IFXOINOT 

IFX1ELSE 

IFX1STRE 

IFX3VQCB 

IFXOMAPP 

IFX1ENDO 

IFX1SUBR 

IFX3VQCX 

IFXOOBJD 

IFX1ENDD 

IFX1SUBC 

IFX3VQCZ 

IFXOOPTN 

IFX1ENIF 

IFX1SUBP 

IFX3VQCC 

IFXOPACH 

IFX1ENTY 

IFX1SUBS 

IFX3VQFF 

IFXOPALC 

IFX1EQUV 

IFX1TEXT 

IFX3VQFN 

IFXOPREM 

| IFX1EQUZ 

IFX1T0KN 

IFX3VQFX 

IFXOSTOR 

IFX1EXPN 

IFX1TRDB 

IFX3VQFA 

IFXOSYIF 

IFX1EXTR 

IFX1TRON 

IFX3VQFU 

IFXOTRCE 

IFX1FNLU 

IFX1TR0F 

IFX3VQFV 

IFXOTRCM 

IFX1F0RM 

IFX1TYPE 

IFX3VQGX 

IFXOTRCD 

IFX1FUNC 

IFX1UNRY 

IFX3VQGA 

IFX0TRP1 

IFX1FHCN 

IFX1USAG 

IFX3VQGQ 

IFX0TRP2 

IFX1GENR 

IFX1VTEN 

IFX3VQLA 

IFX0TRP4 

IFX1GOTO 

IFX2BKCN 

IFX3VQLF 

IFX1AR0P 

IFX1GOTC 

IFX2CNTL 

IFX3VQLR 

IFX1ARTH 

IFX1GOTA 

IFX2C0MN 

IFX3VQLS 

IFX1ASGN 

IFX1IFAR 

IFX2DISQ 

IFX3VQLB 

IFX1ASSN 

IFX1IFLG 

IFX2DYCM 

IFX3VQLI 

IFX1BLDA 

IFX1IFTH 

IFX2EQUV 

IFX3VQLT 

IFX1CALL 

IFX1IMPL 

IFX2NAML 

IFX3VQLJ 

IFX1CATN 

IFX1INCL 

IFX2PACH 

IFX3VQLC 

IFX1CCNV 

IFX1INXT 

IFX2S0RT 

IFX3VQLK 

IFX1CHST 

IFX1INQR 

IFX2STAL 

IFX3VQLN 

IFX1CKEQ 

IFX1INTR 

IFX2USAG 

IFX3VQLV 

IFX1CKLB 

| IFX1IOLS 

IFX2XREF 

IFX3VQMF 

IFX1CKMD 

IFX1IOMN 

IFX3CNTL 

IFX3VQPF 

IFX1CLAS 

IFX1IOST 

IFX3PACH 

IFX3VQPG 

IFX1CLSE 

IFX1LABU 

IFX3PSTR 

IFX3VQPT 

IFX1CMXP 

IFX1LOGL 

IFX3QCTL 

IFX3VQRX 

IFX1CNTL 

IFX1NAMI 

IFX3TRP3 

IFX3VQRA 

IFX1C0MN 

IFX10PEN 

IFX3VPBD 

IFX3VQRB 

IFX1C0NT 

IFX1PACH 

IFX3VPBT 

IFX3VQRF 
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Nodule 

Name 

IFX3VQRZ 

IFX3VQRE 

IFX3VQRW 

IFX3VQSC 

IFX3VQSX 

IFX3VQSR 

IFX3VQSM 

IFX3VQSE 

IFX3VQSI 

IFX3VQTD 

IFX3VQTE 

IFX3VQTT 

IFX3VQTM 

IFX3VQTS 

IFX3VQTX 

IFX3VQTF 

IFX3VQVS 

IFX3VQWT 

IFX3VQXM 

IFX3VQXZ 

IFX3VRAS 

IFX3VRBK 

IFX3VRBP 

IFX3VRFP 

IFX3VRFL 

IFX3VRFR 

IFX3VRGB 

IFX3VRGR 

IFX3VRGS 

IFX3VRLL 

IFX3VRRG 

IFX3VRRL 

IFX3VRSS 

IFX3VRSX 

IFX3VRSL 

IFX3VRTB 

IFX3VRTF 

IFX3VSBS 

IFX3VSBT 

IFX4ATAB 

| IFX4ATAC 
IFX4ATEN 
IFX4ATEP 
IFX4ATPK 
IFX4ATPR 

IFX4ATRN 

IFX4AUEN 

IFX4AVFN 

IFX4CDE1 

IFX4CDE2 

IFX4CDE3 

IFX4CDE4 

IFX4CDE5 

IFX4CDE6 

IFX4CDE7 


Module 

Name 

IFX4CDE8 

IFX4CDE9 

IFX4CD10 

IFX4CD11 

IFX4CD12 

IFX4CD13 

IFX4CD14 

IFX4CD15 

IFX4CD16 

IFX4CD17 

IFX4CD18 

IFX4CD19 

IFX4CD20 

IFX4CD21 

IFX4CD22 

IFX4CD23 

IFX4CD24 

IFX4CD25 

IFX4CD26 

IFX4CD27 

IFX4CD28 
IFX4CD29 
IFX4CD30 
IFX4CD31 
| IFX4CG01 

IFX4CNTL 
IFX4DBUG 
IFX4NAML 
IFX4PACH 
| IFX4RENT 


Appendix B. Compiler and Library Modules 75 



| NODULES FOR SPECIFIC SYSTEMS 


VSE Systems 
Only 

IFXODCTL 
| IFXODSYI 


VN Systems 
Only 

IFXOCMS 


MVS and VM 
Only 

IFXOCNTL 

IFXOSYIF 


76 VS FORTRAN Compiler and Library Installation and Customization 




LIBRARY MODULES 


The first list below names all library modules, regardless of 
system type or variable installation conditions. The subsequent 
lists name modules for particular systems or functions. The 
sizes of the modules can be found in VS FORTRAN Language and 

JLahrsLcyJRftf fiLftnaa» 


Module 

Module 

Module 

Name 

Name 

Name 

IFYBLOGL 

IFYDREN 

IFYLSIN 

IFYBTSHS 

IFYDSIOS 

IFYLSQRT 

IFYCCMPR 

IFYDSPAN 

IFYLTANH 

IFYCITFN 

IFYDSPAP 

IFYLTNCT 

IFYCLABS 

XFYDSPA1 

IFYLXCMP 

IFYCLAD 

IFYDSPIE 

IFYNAMEL 

IFYCLAM 

IFYDVIO$ 

IFYNAMEP 

1 IFYCLBCO 

IhYDvIOS 

■v twm « urn 

in rmricx 

IFYCLBC1 

IFYFABS 

IFYOPSYP 

IFYCLEXP 

IFYFAINT 

IFYOPSYS 

IFYCLLOG 

IFYFCDCD 

IFY0PSY1 

IFYCLSCN 

IFYFCDXI 

IFYQASCN 

IFYCLSQT 

IFYFCONJ 

IFYQATN2 

IFYCMOVE 

IFYFCQCQ 

IFYQERF 

IFYCNCAT 

IFYFCQXI 

IFYQERF2 

IFYCQABS 

IFYFCXPC 

IFYQSCN 

IFYCQEXP 

IFYFCXPI 

IFYQSCNH 

IFYCQLOG 

IFYFDIM 

IFYQSQRT 

IFYCQRIT 

IFYFDXPD 

IFYQTANH 

IFYCQSCN 

IFYFDXPI 

IFYQTNCT 

IFYCQSQT 

IFYFIFIX 

IFYSASCN 

| IFYCREN 

IFYFIMAG 

IFYSATN2 

IFYCSABS 

IFYFIXPI 

IFYSCOS 

IFYCSAD 

IFYFMAXD 

IFYSDUMP 

IFYCSAM 

IFYFMAXI 

IFYDUMQ 

IFYCSEXP 

IFYFMAXR 

IFYDUM1 

IFYCSLOG 

IFYFMODI 

IFYSERF 

IFYCSSCN 

IFYFMODR 

IFYSEXP 

IFYCSSQT 

IFYFNINT 

IFYSGAMA 

| IFYCVIO$ 

IFYFQXPI 

IFYSLGC 

IFYCVIOS 

IFYFQXPQ 

IFYSLGN 

| IFYDBDFT 

IFYFRXPI 

IFYSSCNH 

IFYDC0M2 

IFYFRXPR 

IFYSSIN 

IFYDDCMN 

IFYFSIGN 

IFYSSQRT 

IFYDDCMP 

IFYIBCOM 

IFYSTANH 

IFYDDCM1 

IFYBCOP 

IFYSTNCT 

IFYDDIO$ 

IFYBC01 

IFYTFORT 

IFYDDIOS 

IFYINDEX 

IFYUATBL 

IFYDFNTH 

IFYLASCN 

IFYUOPT 

IFYDGMFN 

IFYLATN2 | IFYVAREN 

IFYDIOCP 

IFYLCOS 

IFYVASUB 

IFYDIOCS 

IFYLDFIO 

IFYVASYN 

IFYDI0C1 

IFYDFIP 

IFYVASYP 

IFYDLBCO 

IFYDFI1 

IFYVASY1 

IFYDLBC1 

IFYLERF 

IFYVBLN$ 

IFYDLCIO 

IFYLEXP 

IFYVBLNT 

IFYDKIO$ 

IFYLGAMA 

IFYVBREB 

IFYDKIOS 

IFYLLGC 

IFYVCIAD 

IFYDLOAD 

IFYLLGN 

IFYVCIA4 

IFYDPROD 

IFYLSCNH 

IFYVCLOP 
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Module 

Module 

Module 

Name 

Name 

Name 

IFYVCLOS 

IFYVIOUF 

IFY3CVTH 

I IFYCL01 

IFYVIOUP 

IFY3C0NI 

| IFYCLSI 

IFYVI0U1 

IFY3C0N0 

IFYVCMSS 

IFYVKIO* 

IFY3DI0S 

IFYCNIS 

IFYVKIOS 

IFY3ERRE 

IFYCNO$ 

IFYVLBCO 

IFY3ERRM 

IFYCOMS 

IFYVLBC1 

IFY3II0S 

IFYVCOMH 

IFYVLCIO 

IFY3L0CA 

IFYVC0M2 

IFYVLCI1 

IFY3M0PT 

IFYVCONI 

IFYVLINK 

IFY3RENT 

IFYVCONO 

IFYVLINP 

IFY3SI0S 

| IFYVCVT$ 

IFYVLIN1 

IFY3TRCH 

IFYVCVTH 

IFYViOAD 

IFY3VI0S 

IFYVDBUG 

IFYVLOC$ 


IFYVDBUP 

IFYVLOCA 


IFYVDBU1 

IFYVMOPP 


IFYVDIO$ 

IFYVMOPT 


IFYVDCMN 

IFYVMOP1 


IFYVDIOS 

IFYVMSKL 


IFYVDUMP 

IFYVOPEN 


1 IFYVDUMQ 

IFYVOPEP 


| IFYVDUM1 

IFYVOPE1 


IFYVDVCH 

IFYVOVER 


IFYVEMG$ 

IFYVPARM 


IFYVEMGN 

IFYVPOS$ 


IFYVERE$ 

IFYVPOSA 


IFYVERRE 

IFYVPOST 


| IFYVERS$ 

IFYVREN 


IFYVEXIT 

IFYVSCOM 


IFYVFNTH 

IFYVSCOP 


1 IFYVGMFN 

IFYVSCOl 


| IFYVIIO# 

IFYVSERH 


IFYVIIOS 

IFYVSFIO 


| IFYVINQP 

IFYVSFST 


IFYVINQR 

IFYVSIOS 


IFYVINQ1 

IFYVSPAN 


IFYVINTE 

IFYVSPAP 


IFYVIOCP 

IFYVSPA1 


IFYVIOCT 

IFYVSPIE 


IFYVI0C1 

IFYVSTA$ 


IFYVIODO 

IFYVSTAE 


IFYVIOD1 

IFYVTEN 


IFYVIOFM 

IFYVTRC$ 


IFYVIOFP 

IFYVTRCH 


IFYVIOF1 | IFYVVI0$ 


IFYVIOIO 

IFYVVIOS 


IFYVIOI1 

IFYVXMSK 


IFYVIOKO 

IFYWDXPD 


IFYVIOK1 

IFYHLCOS 


IFYVIOLD 

IFYHLEXP 


IFYVIOLP 

IFYWLSIN 


IFYVIOL1 

IFYHRXPR 


IFYVIONL 

IFYHSEXP 


IFYVIONP 

IFYWTNCT 


IFYVION1 

IFY3C0MH 



Notei IFYUATBL is supplied for VSE systems end generated on OS 
and CMS during installation. 
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MODULES FOR SPECIFIC SYSTEMS 


MVS Systems 

VSE Systems 

Only 

Only 

IFYVAREN 

IFYDC0M2 

IFYVASUB 

IFYDDIOS 

IFYVBREN 

IFYDDIOS 

IFYVLBCO 

IFYDFNTH 

IFYVLBC1 

IFYD6MFM 

IFYVREN 

IFYDKIOS 

IFYVVIO$ 

IFYDKIOS 

IFYVVIOS 

IFYDLBCO 

IFY3C0MH 

IFYDLBC1 

IFY3CVTH 

IFYDLCIO 

IFY3C0NI 

IFYDLOAD 

IFY3C0N0 

IFYDREN 

IFY3DI0S 

IFYDSIOS 

IFY3ERKL 

lhYDVlOt 

IFY3ERRM 

IFYDVIOS 

IFY3IIOS 

IFYOPSYP 

IFY3RENT 

IFYOPSYS 

IFY3SI0S 

IFY0PSY1 

IFY3VI0S 


IFY3TRCH 



VM Systems 

MVS and VM 

Only 

Only 

IFYLBCO 

IFYVCIAD 

IFYLBC1 

IFYVCIA4 

IFYCREN 

IFYVC0M2 

IFYCRNAM 

IFYVDIOS 

IFYCVIO$ 

IFYVDIOS 

IFYCVIOS 

IFYVFNTH 

IFYCMSS 

IFYVKIO$ 
IFYVKIOS 
IFYVLCIO 
IFYVLINP 
IFYVLIN1 
IFYVLOAD 
IFYVSFIO 
i fYVSfS! 
IFYVSIOS 
IFYVSPIE 
IFYVSTA$ 
IFYVSTAE 
IFY3M0PT 
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REENTRANT LIBRARY NODULES 


MVS Nodule 
Names 

IFYVAREN 

IFYVASUB 

IFYVBLNT 

IFYVBREN 

IFYVCLOP 

IFYVCOMH 

IFYVCONI 

IFYVCONO 

IFYVCVTH 

IFYVDIOS 

IFYVEMGN 

IFYVERRE 

IFYVGMFM 

IFYVIIOS 

IFYVINQP 

IFYVIOCP 

IFYVIOFP 

IFYVIOUP 

IFYVKIOS 

IFYVLINP 

IFYVMSKL 

IFYVOPEP 

IFYVREN 

IFYVSFIO 

IFYVSFST 

IFYVSIOS 

IFYVSTAE 

IFYVTEN 

IFYVVIOS 

IFY3C0MH 

IFY3CVTH 

IFY3C0NI 

IFY3C0N0 

IFY3DIOS 

IFY3ERRE 

IFY3ERRM 

IFY3II0S 

IFY3L0CA 

IFY3M0PT 

IFY3RENT 

IFY3SI0S 

IFY3TRCH 

IFY3VIOS 


VSE Nodule 
Names 

IFYDDIOS 

IFYDGMFM 

IFYDKIOS 

IFYDREN 

IFYDSIOS 

IFYDVIOS 

IFYVCLOP 

IFYVCOMH 

IFYVCONI 

IFYVCONO 

IFYVCVTH 

IFYVEMGN 

IFYVERRE 

IFYVGMFM 

IFYVIIOS 

IFYVINQP 

IFYVIOCP 

IFYVIOFP 

IFYVIOUP 

IFYVMSKL 

IFYVOPEP 

IFYVTEN 


VM Nodule 
Names 

IFYCREN 

IFYCVIOS 

IFYVCLOP 

IFYVCOMH 

IFYVCONI 

IFYVCONO 

IFYVCVTH 

IFYVDIOS 

IFYVEMGN 

IFYVERRE 

IFYVGMFM 

IFYVIIOS 

IFYVINQP 

IFYVIOCP 

IFYVIOFP 

IFYVIOUP 

IFYVKIOS 

IFYVLINP 

IFYVMSKL 

IFYVOPEP 

IFYVSFIO 

IFYVSFST 

IFYVSIOS 

IFYVSTAE 

IFYVTEN 
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| MEMBERS OF VALTLXB, VLNKMLXB, VFLODLXB 


VALTLXB 

VLNKMLXB 

VFLODLXB 

Members 

Members 

Members 

IFYWDXPD 

IFYCLBC1 

IFYCVIOS 

IFYWLCOS 

IFYDDCM1 

IFYDDCMP 

IFYWLEXP 

IFYDIOC1 

IFYDDIOS 

IFYWLSIN 

IFYDLBC1 

IFYDIOCP 

IFYWRXPR 

IFYDSPA1 

IFYDKIOS 

IFYWSEXP 

IFYIBCOl 

IFYDSIOS 

IFYWTNCT 

IFYLDFI1 

IFYDSPAP 


IFYNAME1 

IFYIBCOP 


IFYOPSY1 

IFYLDFIP 


IFYSDUM1 

IFYNAMEP 


IFYVASY1 

IFYOPSYP 


IFYVCLOl 

IFYSDUMQ 


IFYVDBU1 

IFYVASUB 


I FYVD'JMl 

IFYVASYP 


IFYVINQ1 

IFYVBLNT 


IFYVIOC1 

IFYVCIAD 


IFYVIOD1 

IFYVCIA4 


IFYVIOF1 

IFYVCLOP 


IFYVIOI1 

IFYVCOMH 


IFYVIOK1 

IFYVCONI 


IFYVIOL1 

IFYVCONO 


IFYVION1 

IFYVCVTH 


IFYVIOU1 

IFYVDBUP 


IFYVLBC1 

IFYVDIOS 


IFYVLCI1 

IFYVDUMQ 


IFYVLIH1 

IFYVEMGM 


IFYVMOP1 

IFYVERRE 


IFYVOPE1 

IFYVIIOS 


IFYVSCOl 

IFYVINQP 


IFYVSPA1 

IFYVIOCP 


IFYVIOFP 

IFYVIOLP 

IFYVIONP 

IFYVIOUP 

IFYVKIOS 

IFYVLINP 

IFYVLOCA 

IFYVMOPP 

IFYVMSKL 

IFYVOPEP 

IFYVPOSA 

IFYVSCOP 

IFYVSPAP 

IFYVSTAE 

IFYVTEN 

IFYVTRCH 

IFYVVIOS 
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INDEX 


m 

ACCEPT step 

SMPTLIB data sets used 12 
ACCEPT, MVS 17 
ACCVSF procedure, MVS 17 
ADDNTRY and error option table 31 
ALLCPROC procedure, MVS 16 
alternative mathematical library 
subroutines 
MVS 38 
VM 61 
VSE 52 
APPLY step 

SMPTLIB data sets used 12 
APPLY, MVS 17 
ARCH option 9 

authorized programming analysis report 
(APAR) 73 


m 


cataloged procedures 

and execution time loading of library 
modules, MVS 44 

and execution time loading of library 
modules, VM 65 

and execution time loading of library 
modules, VSE 56 
compiling, MVS 40 
executing, MVS 41 
FORTVCLG usage, MVS 17 
link-editing, MVS 40 
loading, MVS 41 
PROC statement usage, MVS 39 
using CATALP statement 53 
writing and modifying, MVS 39 
writing and modifying, VSE/Advanced 
Functions 53 

CATALP statement, VSE/Advanced 
Functions 53 
Central Service 73 
CHARLEN option 5 
CMS (See also VM/SP) 
compile-time machine requirements 3 
compiler modules 74 
compiler option default values 5 
compiler options 
CHARLEN 5 
DATE 6 
FIPS 6 
FLAG 6 
INSTERR 6 
LANGLVL 6 
LINECNT 7 
NAME 7 
OBJATTR 7 
OBJID 7 
OBJLIST 7 
0BJPR0G 7 
OPTIMIZ 7 
PUNCH 7 
SORCIN 7 


SORLIST 7 
SORTERM 7 
SORXREF 8 
SRCFLG 8 
STORMAP 8 
SXM 8 
SYM 8 
SYMDUMP 8 
SYSTEM 8, 9 
TEST 8 
TRMFLG 8 
composite modules 
MVS 43 
VM 64 
VSE 56 

core image libraries, VSE 18 
corrective service 73 
CREATE step 16 


H 


data sets 
SMP 12 
SMPTLIB 12 
DATE option 6 
DD statement 

and cataloged procedures, MVS 39 
and compilation, MVS 40 
DECIMAL option 9 

default options (see compiler options) 
defaults, changing for VSE 

compiler default options 53 
modifying library object-time I/O 
options 54 
devices supported 3 
distribution libraries 
MVS 13 

distribution tape 
MVS 12 
VM/SP 23 
VSE 18 


cm 


ERRMON 36 

error handling facility 

and ERRMON (error monitor) 36 
functional characteristics 30 
general description 30 
planning 31, 37 
user-supplied exit routine 36 
error monitor 30 

modifying the action taken by 
ERRMON 30 

error option table, definition 30 
and error handling 30 
how to create and alter 31 
# V$FUQPT macro usage 31 
examples of code and 3el 

accessing the separation tool under 
MVS 42 
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accessing the separation tool under 
VM 63 

building a DCSS for composite 
modules 70 

cataloged procedure VSFORTCLG 39 
creating IFYVLBCM in MVS 47 
creating IFYVLBCM under VM 68 
creating IFYVLBCM under VSE 59 
creating IFYVRENA in MVS/XA 49 
creating IFYVRENB in MVS/XA 51 
creating IFYVRENC in MVS 48 
creating IFYVRENC under VM 69 
creating IFYVRENC under VSE 60 
creating symbolic libraries* 

VM/SP 61 

creating symbolic libraries* VSE 52 

IFYSMPFT for MVS 17 

IFYSMPFT for VM/SP 27 

IFYSMPFT for VSE 22 

installing in private libraries* 

VSE 20 

installing in work libraries* VSE 21 
make alternative mathematical 
routines available 38 
make reentrant module IFYVRENT 
available 43 
NAMESYS macro 61 

specifying compiler default options 
for VSE 53 

specifying libraries in link mode 
under MVS 45 

specifying libraries in link mode 
under VSE 57 

specifying libraries in load mode 
under MVS 44 

specifying libraries in load mode 
under VSE 56 

specifying library default options 
for VSE 54 

verifying success* MVS 17 
verifying success* VM/SP 27 
verifying success* VSE 22 
EXEC statement* cataloged procedures 39 
EXEC used to install (VM/SP) 24 
execution time loading of library 
MVS 

cataloged procedures* updating 44 
composite modules 43 
deciding which modules to 
include 45 
IFYVLBCM 43 
IFYVRENA 43 
IFYVRENB 43 
IFYVRENC 43 
IFYVRENT 43 
link mode 44 
load mode 44 
selection of mode 44 
using step libraries or job 
libraries 44 
VM 

cataloged procedures* updating 65 
composite modules 64 
deciding which modules to 
include 66 
IFYVLBCM 64 
IFYVRENC 64 
IFYVRENT 64 
link mode 65 
load mode 65 
selection of mode 65 

VSE 

cataloged procedures* updating 56 
composite modules 56 


deciding which modules to 
include 57 
IFYVLBCM 56 
IFYVRENC 56 
IFYVRENT 55 
link mode 56 
load mode 56 
selection of mode 56 
extended error handling facility 30 
extended precision operations* VM/SP 62 


El 


FIPS option 6 

FLAG option 6 

FORTPROC procedure, MVS 16 

FORTVCLG cataloged procedure 17 

FORTVCLG cataloged procedure* MVS 39 

FORTVS library* MVS 13 


m 


global txtlib statement* VM 62 


m 


IBM Support Center 73 
IEBGENER utility 

using in CREATE step 16 
IFYIBCOP 58* 67 

IFYSMPFT sample program 17* 22* 27 

IFYUATBL 55 

IFYVRENT module 42 

IFYVSCOP 47, 59, 68 

IFYVSFI0 and separation tool 42* 63 

IFYVSFST and separation tool 42* 63 

industry standards iii 

INITPROC procedure* MVS 16 

INSTALL, MVS 16 

installation macros 

compiler installation 5 
library installation 8 
VSFORTC 4 
VSFORTL 8 

installation process 
MVS/SP 12* 14 
MVS/XA 12, 14 
overview* MVS 13 
overview* VM/SP 24 

overview* VSE/Advanced Functions 19 
VM/SP 24 

VSE/Advanced Functions 18* 19 
installation requirements 3 
INSTERR option 6 


m 

job libraries and execution-time loading 
of library 44 
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CD 


labels^ tape 

VM/SP optional 61 
VSE optional 52 
LANGLVL option 6 
libraries 

distribution/ MVS 13 
target/ MVS 13 
target/ VM/SP 23 
target/ VSE/Advanced Functions 18 
library modules 77 
Library only 

distribution medium/ MVS 12 
distribution medium/ VM 23 
distribution medium/ VSE 18 
installation process/ VM 23 
installation process/ VSE 18 
installation process/MVS 12 
introduction 2 
library options 
ARCH 9 
DECIMAL 9 
OBJERR 9 
ONLNPCH 9 
ONLNRD 9 
UNTABLE 9 

library subroutines/ mathematical 38/ 
52/ 61 

licensed programs 73 
LINECNT option 7 
Link mode 44, 45/ 56/ 57/ 65 
load library/ VM 23 
Load mode 44/ 56/ 65 
loadlibs/ VM 23 
local program support 73 
logical I/O unit/ VSFORTL macro 8 
logical units/ execution-time for 
VSE 55 


|-1 

I " I 

machine requirements 
compile-time 3 
for supported systems 3 
object-time 3 
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